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MIXED GRAPHICS AND TEXT 

“GRAFTXT" is a program which enables you to mix 
both graphics and text together on the same page. 
It uses the printer's own text characters to print 
the text and uses a flexible mode 4 screen dump to 
print the graphics. In this way, the number of text 
fonts depends on your printer. It can be italics, 
Pica, elite or near letter quality, like the print 
seen here. The choice is yours. It allows you to 
create your own page format and save it. A suitable 
mode 4 picture may then be cropped and printed 
together with your text defined in your format. 
result?...take a look at this page' 


for BBC 
micro users 


The 


You may print large pictures, up to nearly 
full size screen in mode 4, or small pictures, 
down to one character in size. You may place 
the picture anywhere on the page, at either 
left or right ends, or in the middle between 
text. You may choose to print your pictures 


«uu | 


with borders around them 
justify text left, right 
combine sections of text and graphics together 
to produce a full length page like this one. 
And all done with the greatest of ease/ 


or without. You may 
or centre, and even 


"GRAFTXT" is written in two parts. The first 


part contains the design 
the screen page. This has| 
a WYSIWYG format designer 
you get'). You select the| 
graphics area, type in 
before saving it on disc. 
controls the output to 
previously created format| 
load in a mode 4 picture, 


Of course, every piec 
limitations and this is 
facilities provided here 
useful printer's tool and 


greeting cards, newsletters, 
your social mail and impress 
it may not be as good as the 
Street Editor by Mirrorsoft, 
a bit of cash, 
Perhaps you may even like to 
and graphics program — well, 


program, using mode Ø as 
been scaled to give you 
(ie. 'what you see is what 
size and position of your 
the text and justify it 
The second part, "GRAF2", 
the printer. You load in a 
and select the font. Then 
crop it, and print it out. 


of programming has its own 
no exception. However, the 
will no doubt make it a 
will have many uses. 


You can use it for printing letter heads, business and 


or simply just to decorate 
your friends. Of course, 
AMX Pagemaker or Fleet 

but then you save on quite 


and the results aren't all that bad. 


write your own mixed text 
why not join BEEBUG now 


k and read all about printer graphics in a forthcoming 


article. HAPPY PRINTING! 


Page Designer 
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SUPPORT FOR THE MASTER 

In this issue of BEEBUG we have expanded our coverage of the 
Master series from four to six pages to allow us to publish even 
more programs, articles and other information on this system. 
Compact users will also find that our own 'Master Series' is full of 
interest to them too. 

We have achieved this by reducing the size of the supplement, 
rather than by any reduction in editorial content. And this in no 
way diminishes our support for owners of the model B and B+. 
In fact, one of our Master articles, on the use of EXEC files, 
contains ideas that are applicable to all Beeb owners. 


TRADE IN YOUR BEEB 

Many BEEBUG members have expressed interest in upgrading 
their model B to a Master 128 or Master Compact. Last month we 
were able to announce a trade-in scheme which enables members 
to obtain a substantial trade-in allowance on their old machine. 
In addition, all Model B micros obtained by us are fully tested, 
and offered for resale in guaranteed full working order. So, if you 
want to upgrade your system, or purchase a model B at a very 
reasonable price, see the BEEBUG mail order price list enclosed 
with this issue. 


REVISED PROGRAM CLASSIFICATION 

The growing variety of Acorn systems has caused us to revise 
completely the range of symbols that we use to dassify programs, 
and where appropriate, reviews, published in the magazine. 
The main changes are the inclusion of separate disc symbols for the 
DFS and the ADFS, and a symbol for the new Master Compact 
which distinguishes between ROM Basic VI and disc Basic IV. 
The complete set of symbols is shown below. The new symbols 
show dearly the valid combinations of machine (version of Basic) 
and filing system for each item (and Tube compatibility). 
Remember that a single line through any symbol indicates partial 
working (normally a few changes will be needed) and a cross over 
a symbol shows total unsuitability. For reviews we do not 
distinguish between Basic I and Basic II, but merely put a 'B for 
the model B. 
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Acorn Profitable 

Acorn has reported a 
profit of nearly £300,000 
in the six months to June, 
against a loss of nearly 
£100,000 in the previous 
half year. It looks as 
though Acorn is now truly 
out of the doldrums and 
that the future of the BBC 
micro in all its forms is 
now as secure as it can be. 


Free Ultracalc Utilities 

BBC Soft is giving away 
utilities for the Ultracalc 
spreadsheet ROM absolutely 
free. A formatted disc sent 
to BBC Software, 33 
Marylebone High Street, WIM 
4AA with stamps for return 
postage will be returned 
with graph drawing, Acorn 
Database to Ultracalc data 
conversion, printing and 
other utilities. 


Ted 4 WE 

Watford Electronics has 
released a mode 7 teletext 
editor called Ted. Supplied 
on a 32K ROM, Ted allows 
the creation of screens in 
the viewdata format, or as 
part of a large screen with 
one screen-sized window on 
the screen at a time. Ted 
costs £35 from Watford on 
0923-37774. 


New Epson Printer 

The popular Epson LX-8Ø 
NLQ printer has been 
replaced by the LX-86. The 
new machine is very similar 
to the old, but can operate 
faster. Epson claims the 
LX-86 is 20% faster than 
the old model, capable of 
120 characters per second 
in draft mode. The 
recommended price for the 
LX-86 is £275. Epson is on 
01-902 8892. 
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Spider Control 
The Spider hardware and 
software real time control 


package (see BEEBUG news 
Vol.4 No.9) has been 
updated to Spider2, and a 
cartridge version is 
available for the Master. 
Spider2 can deal with all 
kinds of digital and 
analogue inputs and outputs 
with extensions to Basic to 
control the board. Prices 
start at £65 from Paul Fray 
Ltd. on 0223-66529. 


Add-On NLỌ 
M & M Technix has good 


news for owners of printers 


without NLQ. The NLQ 
printer buffer plugs into 
any Epson compatible 
printer and connects to a 


Beeb. Anything sent to the 
printer is converted by the 
unit to NLQ in one of three 
fonts in the device. The 
fonts may be chosen from 17 
produced by M&MT. The unit 
is also a printer buffer 
and is available with 8K or 
32K buffer sizes. Prices 
start at £125. Further 
details from M&MT on 
0332-381649. 


3D Updated 

Design Dynamics' Inter- 
active 3D package (see 
BEEBUG Vol.4 No.1Ø) has 
been updated to include 
automatic circle drawing. 
The new version can save 
Screens to disc for dumping 
to a printer not covered by 
the software's built-in 
FX8Ø/Taxan screen dump. The 
price remains £8.95 (tape), 
£12.95 (disc). Details from 


Design Dynamics on 0525- 
402447. 
Beeb Link-up 

Dinosaur Software has 


released two music-making 
packages that will conduct 
two BBC: micros in harmony. 
Musicpen is a  light-pen 
driven music composition 
program on ROM which 
enables Music-Link to use 
all eight sound channels of 
two BBC micros connected 
together via the RS423 
connectors. Musicpen costs 
£28.75 and Music-Link £9. 
Further information from 
Dinosaur on 0223-322244. 


Acornsoft/Superior Game 

The latest game to come 
out of the alliance between 
Superior Software and 
Acornsoft is a battlefield 
game called Stryker's Run. 
The game involves fighting 
your way across a 
battlefield, shooting enemy 
soldiers and commandeering 
any abandoned planes or 
tanks. It costs £9.95 on 
tape and £11.95 on disc 


(£14.95 on 3.5 inch disc). 
Superior Software is 
running a competition for 
purchasers of the game with 
over £200 of prizes. 
Superior Software is on 


Ø532-459453. 
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Dumping Teletext/Prestel 
Screens Using Dumpmaster 


It is mnot possible to 
obtain a screen dump 
directly from Prestel or 
Teletext using Dumpmaster. 
However, the screen can be 
dumped if it is saved first 
to cassette or disc. Your 
Teletext/Prestel software 
should have a facility to 
Save the current screen 
(function key 6 is often 
used for this purpose). 


The following Basic 
program will then dump your 
Screen to the printer: 


10 MODE 7 
20 *LOAD "filename" 7CØØ 
30 *PRINT etc 


Please make sure that you 
are in Basic before 
attempting this operation 
and that your printer is 
reset and on line. Type 
*BASIC first to enter Basic 
if you are in another 
language. 


Magscan — Split Files 


Magscan data files VOLI 
and VOL2 are stored on the 


dual format disc in two 
parts called VOLla, VOLlb, 
VOL2a and VOL2b. The data 


for volume 3 is in a single 
file and any additions to 
the Beebug Bibliography 
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should be stored on the 
disc in the same way. 


If, however, you want 
to create a new biblio- 
graphy on a separate disc, 
you may wish to alter 
Magscan to prevent it 
accessing split files. Copy 
the files !BOOT, CODE and 
INDEX to your new disc, and 
make the following changes 
to the Basic program INDEX: 


Delete lines 1260-1280 
Change line 1290 to read: 


1296 IF R%<>I$ SS="L.VOL"+C 
HRS (13+48) *"2500" : X$-&40: YS 
=7:CALL&FFF7 


Re-save the program INDEX, 
and type *OPT 4,3 to ensure 
that the disc will 
auto-boot. Magscan will now 


search for files VOLI, 
VOL2, VOL3, and so on, 
instead of VOLla, VOL2a, 
VOL3 etc. 
Master Compatibility 
The following Beebug- 

soft products are com- 
patible with the Master 
128: 

Spellcheck III 

Studio 8 

Help II 


Dumpmaster ROM & Disc 
Iconmaster (Version 2.0) 
Quickcalc 

Magic Modem & Software 
Billboard 

Teletext Editor 

ADFS Masterfile II 


The following products 
are currently being tested 


for Master compatibility, 
and should be available 
soon: 

Paintmaster 


Hershey Chars/Multifont 
Wordease 

Romit 

Design 

Program Builder 


Master Compact 
Compatibility 

Beebugsoft ROMs Help 
II, Iconmaster and Dump- 
master are all compatible 
with the new Master 
Compact. The following 
software will soon be 


available on 3.5" disc for 
this machine: 
` ADFS Masterfile II 

Studio 8 

Paintmaster 

Quickcalc 

Dumpmaster 


The Beebug Magic Modem 
and software is also 
compatible with the Master 


Compact, but users will 
have to upgrade their 
machines with an  R5232 
interface. The upgrade kit 
will be available very 
Soon, and is very easy to 


install (just four chips). 


Dumpmaster on the Master 


Although Dumpmaster is 
compatible with the Master 
128, there is a command 
clash with the built in 
Master command *PRINT. To 
use the Dumpmaster command 
*PRINT you must prefix it 


with the letter  'B' (for 
Beebugsoft) i.e. *BPRINT. 
This prefix is used 


throughout the Beebugsoft 
range of ROM software to 
prevent command clashes. 


Spelicheck Ill and the ADFS 


The ` Spellcheck III 
dictionary disc is supplied 
on a normal DFS disc and 
cannot therefore be used 
with the ADFS for checking 
documents. However, you can 


load a document into 
Spellcheck from an ADFS 
disc and then use the 
command *DISC before 
starting the spelling 
check. Remember to switch 


back to the ADFS before 
re-saving your document. 
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At last Hybrid Technology has re- 
leased its successor to the acclaimed 
Music 500. It is called the Music 5000, 
but is it ten times as good? Ian 
Waugh, author of books and articles 
on the subject of music and micros, 
conducts his own review. 


Product 
Supplier 


: Music 5000 

: Peartree Computers Limited, 
St. George's House, 
14 George Street, 
Huntingdon, 
Cambridgeshire PE18 6BD. 
(0480) 50595 

Price : £159.95 

Product 

Supplier 


: Music 500 Upgrade Pack 

: Hybrid Technology Limited, 
Unit 3, Robert Davies Court, 
Nuffield Road, 
Cambridge CB4 1TP. 
(0223) 316910 


Price : £69.00 


The original Acorn Music 500 
Synthesiser was launched over two years 
ago and reviewed in May 1985 in BEEBUG 
Vol.4 No.1. It could produce up to eight 
voices using 16 channels of sound and its 
enormous range of sounds rivalled and, in 
many cases, surpassed those of dedicated 
synthesisers costing two and three times 
its asking price of £199. It was also 
unique in being totally software driven by 
the Beeb, and it promised to open up a 
whole new area of music to Beeb owners. 


If the Music 500 had any drawbacks it 
was its own sheer wealth of possibilities. 
It was controlled (i.e. programmed) in a 
language called AMPLE (Advanced Music 
Production Language Environment) and in 
order to get the best out of the system 
you really had to learn the language. The 
manual, however, was not really up to the 
task, and there must be many Music 500 
owners who struggled to understand what 
is, after all, a new, very powerful and 
sophisticated language. 
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[4 © tune > 
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after lots of rumours, the 


Finally, 
Music 5000 appeared at the Acorn User 


Show. To quell the speculation, the facts 
are these: there is only one hardware 
difference between the 5000 and the 500 
and that lies in the 1 MHz bus. This has 
been re-designed to make it compatible 
with nearly all BBC computers: the BBC B 
(with OS 1.2), B*, B+128 and the Master 
128 (but not Compact). The Music 500 was 
designed specifically for the BBC B and is 
not guaranteed to work with any other 
model (but my 500 works quite well with my 
Master). The Music 500 has now been 
discontinued, although you may find one 
second hand, but try it with your computer 
before you buy. 


Thus the main difference between the 
5000 and the 500 lies in the software, and 
the Music 500 Upgrade Pack consists of an 
AMPLE ROM and a new User Guide. This will 
give you all the software features of the 
new 5000 but it will not make a previously 
incompatible 500 suddenly compatible. 


The basic unit of an AMPLE program is 
the word. A word can be defined to do 
almost anything. For example, it can hold 
instructions to play a sequence of notes, 
set tempo, transpose or call up a new 
instrument. Although the old software gave 
you a few predefined waveforms and 
envelopes you really had to start from 
Scratch to produce anything significant. 


The difference in software is 
immediately apparent upon booting the 
system disc. A whole new front-end called 
the Studio 5000 has been designed 
containing many features to simplify the 
entry of music and the design of 
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instruments. The main menu offers: Run 
Program (run the program resident in 
memory), Notepad (a music editor and 
instrument designer), Staff Editor (for 
editing music on the staff), Mixing Desk 
(for mixing and balancing the different 
parts of a piece), and several utilities. 


The design philosophy behind the new 
presentation is one of software extension, 
whereby modules can be loaded into the 
system as and when required. Some modules, 
such as instrument definitions, are loaded 
permanently | when the system starts; 
others, such as the Notepad and Staff 
Editor, are only loaded when required. 
Thus new modules can be loaded and used as 
simply as you would plug in a new ROM. 


The manual gets off to a good start by 
telling you how to call up and play the 
excellent demo tunes. It then moves on to 
describe the Mixing Desk which is one of 
the new front-end modules. This gives you 
a mode 7 display of an eight-channel 
mixing desk, one channel per voice. It 
goes further than a conventional mixing 
desk - it is computerised, after all. It 
enables you to alter the stereo position 
of each voice, adjust the volume and alter 
the instrument the voice is using. The 
instruments are chosen from the 14 preset 
ones or any others which may have been 
defined especially for the piece. You can 
make adjustments as the music is playing 
so that you can see and hear how your mix 
sounds in the context of a tune. 


There are other effects on the Mixing 
Desk, too. You can transpose the piece, 
alter the tempo, pause the music and fast 
wind through it. You can save different 
mixes and recall them at will. It's a 
computerised mixing console, easy to use, 
fun and practical at the same time. 


The second module the manual 
introduces is the Staff Editor. For 
traditional musicians, this lets you enter 
music on a staff or stave. Note entry and 
editing is accomplished with the cursor 
keys and judicious use of the Shift key, a 
process not completely unlike System's The 
Music System. Unlike TMS, however, the 
AMPLE Editor has provision for almost 
every conceivable musical nuance you can 
imagine - and then some you can't. 


You can enter the full range of notes, 
sharps, flats, accidentals, rests, ties, 
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slurs, triplets and duplets. You can also 
set non-standard key signatures, define 
note style (e.g. legato or staccato), set 
dynamics (loudness) and accent notes. You 
can insert bar lines (or not) and if you 
use a time signature (not compulsory), the 
program will check the length of the bars. 
You can also define and insert your own 
instruction words relating to performance. 


You can enter chords on the staff, 
too. The notes are staggered across the 
stave rather than appearing in a vertical 


line. It looks odd at first but it's easy 
to adjust to. You can also assign 
percussion sounds to six notes in the 


treble clef and create your own rhythms. 


The Staff Editor is ideal for 
musicians who feel most comfortable 
working with traditional notation. It will 
also help anyone entering music from a 
written score and, of course, you can see 
at a glance what the piece looks like. 
This is a very powerful addition to the 


AMPLE language. 


The Notepad is a multi-purpose editor 
that handles data in text form, unlike the 
graphic displays of the other two editors. 
The main part of the screen is defined as 
a text window and you can move to any 
position in it with the cursor keys. New 
characters overwrite what is on the 
screen, and function keys are used to 
insert and delete lines and characters. 
The creation and editing of instructions 
is therefore very easy. The Notepad has 
two main uses: to create music and to 
define instruments. A function key 
switches between the two applications. 


Z 


AMPLE has a music notation of its own 
(already familiar to Music 5ØØ users), and 
the manual is keen to stress how much 


simpler and more logical it is than the 
staff notation. A note length and octave 
number are set first of all and then notes 
are entered as a series of note names. You 


can add accidentals, define key sig- 
natures, play chords and do all the 
musical things you want to do. This 


notation is, in fact, the system around 
Which the other editors were designed, and 
you can edit pieces here that were created 
with the other editors. The Notepad is 
undoubtedly the most powerful of the three 
editors and some facilities can only be 
used from within it. 


Echo is a built-in special effect and 
you can adjust the echo parameters to 
produce anything from reverberation to a 
Standard tape echo effect. The repeating 
echoes can be detuned and transposed and 
given individual stereo positions in the 
Mixing Desk. Thus you could, for example, 
produce eight echoes which dropped in both 
pitch and volume as they passed from one 
speaker to the other. You can also program 
gradual changes in tempo (rallentando and 
accelerando) and volume (from ppp to fff 
and vice versa), a facility virtually 
unknown on computer based music systems. 
The dynamic level control can be 
redirected to produce autopanning and 
slide effects. Such is the versatility of 
software based controls. 


The Notepad is also used to create 
instruments. Unlike the 500 software, you 
no longer have to create waveforms and 
pitch and amplitude envelopes - these have 
already been done for you. You can choose 
from 14 waveforms, 17 amplitude envelopes 
and 17 pitch envelopes. It's not as though 
you only have 14 x 17 x 17 possible 
combinations, either, because you can add 
synchronisation, and ring and frequency 
modulation. 


Most instruments are designed using 
one or two of the 16 available sound 
channels, but you can use up to all 16 on 
one voice if you wish. Individual voices 
can be detuned, transposed and given 
Separate stere& positions and volume 
levels. You can even call up an instrument 
sound and apply further modifications to 


it. The User Guide includes diagrams of 
all the waveforms and envelopes and gives 
details of the predefined instruments 
along with a further 25 for you to type 
in. The creation and editing of 
instruments has been simplified enormously 
by the Notepad Editor. 


Unlike the Music 500, you no longer 
have direct control over waveform and 
envelope design and some of the other 
little niceties which made the AMPLE 
language so difficult for newcomers to 
grasp. I doubt, actually, that they will 
be missed but a waveform and envelope 


editor is under development, and it will 
be easy to load this into the program 
using the module system. + 

The new User Guide is a great 


improvement over the old one and you will 
be able to work through the front-end 
editors immediately. With just a little 
effort you should be able to produce 


pieces in hours, not days. A little 
musical knowledge, however, will not go 
amiss. The manual, therefore, generally 


does an excellent job although even more 
information would have been welcomed. As 
you delve deeper into the language some 
questions may arise which it won't answer. 
To take advantage of all the language's 
programming facilities, an AMPLE 
Programmer's Guide is being written. For 
full integration with established music 
Systems, however, we still await the MIDI 
interface and keyboard. 


If you're a Music 500 owner and have 
struggled with AMPLE programming then the 
Upgrade Pack is a must. It will put new 
life into your system and, as you will 
already have some idea of how AMPLE works, 
the whole process should be even easier 
for you. 


As a powerful musical tool and 
synthesiser, the Music 5000 can only be 
complimented and is certainly recommended. 
No other instrument in this price range 
comes close to offering both the sounds 
and the programming flexibility of this 
device and the new front-end makes it easy 
to use, too. If you need more convincing 
try the demo audio cassette from Peartree 


at £25954 
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Merge, Part-merge 
and Part-save 


Tired of deleting, SPOOLing and 
EXECing? This utility from Jagdish 
Sah gives your micro two powerful * 
commands, *MERGE and *PSAVE. 


The User Guide describes two methods 
of merging a Basic program from a tape or 
disc file onto a program in memory. The 
first method is based on *SPOOLing the 
program to be merged in a file which is 
then *EXECed into the current program. 
Although it achieves the objective adequ- 
ately, the method is somewhat long-winded. 


The second method involves *LOADing 
the file to be merged at the end of the 
current program. Thus, it succeeds only in 
appending one program to another. 


Obviously there is a need for a 
utility which will extract the required 
lines from a file and merge them into the 
program in memory without going through 
the  rigmarole described above. The 
accompanying listing provides a new 
command, *MERGE, which will serve this 
purpose. In addition it also implements a 
second command, *PSAVE, which will save 
any part of the program in memory. 


USING THE UTILITY 

Type in the program as listed. Save it 
to tape or disc before you run it. After 
running, save the machine code routine 
produced with the help of the displayed 
command. If a 'Checksum error' message is 
displayed, check the program carefully for 
any mistakes. When you intend to use the 
utilities, type: 

*RUN MERGEMC 
(or *MERGEMC for disc users). This will 
set up both commands ready for use. The 
*MERGE command has the syntax: 
*MERGE <filename>,<startline>,<endline> 


It will extract all lines between the 
startline and the endline (inclusive) from 
the specified file and merge them into the 
program in memory. New lines from the file 
will replace the old ones in the memory if 
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they have the same line numbers. A typical 


example of the command is: 
*MERGE OLDPROG, 1ØØØ,1999 


This will merge all lines between 1009 
and 1999 (inclusive) from the file 
OLDPROG. 


*MERGE OLDPROG, 0,1999 
will merge all lines from the beginning of 
the file to the line 1999. 


*MERGE OLDPROG,0 , 0 

will merge the whole file. The routine 
replaces the Ø for the endline with 32767, 
the largest possible line number. In the 
examples above OLDPROG may be replaced by 
any valid file name. For tape files it may 
also be replaced by "" which, as usual, 
means the next file on the tape. 


The *PSAVE command has the syntax: 
*PSAVE <filename>,<startline>,<endline> 


This will save all lines between the 
startline and the endline (inclusive) from 
the program in memory into a new file. The 
line numbers carry the same meaning as for 
the MERGE command. But in this case they 
pertain to the program in memory. 


If the Escape key is pressed during 
the merge or  partsave operation, 
everything is tidied up before the routine 
is exited. In the merge operation this 
means inserting the current line properly, 
So that the program in memory is not 
corrupted, before closing the input file. 
In the partsave operation, the current 
line together with the  end-of-program 
marker is sent to the output file before 
the latter is closed. 


ERROR MESSAGES 

The program also detects and reports 
on any errors that may arise. The routine 
first checks whether a valid program is 
present at PAGE in memory. If not, a "Bad 
program" message is displayed. Thus, if 
you want to use the *MERGE command to 
effect a part-load prior to a typing-in 


session remember to issue a NEW command 
first. 

If an improper line number is 
specified, a "Bad Arg" message is output. 


file" message will be 
produced only on a disc system. For the 
merge operation it means that the 
specified file was not found on the disc. 
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A "Can't open 


For the partsave operation it may result 
from the disc or the catalogue being full. 


PROGRAM NOTES 

&900 is the start address for the 
machine code routine. If you find this 
inconvenient, a different value may be 
chosen by altering line 100. But do so 
only after the program has run once 
without giving a "checksum error" message. 
The machine code requires 3 pages in 
total, so for disc users, the code would 
occupy pages &9, &A and &B. 


Tape users should note that the area 
&900-&AFF cannot be used - the routine 
needs it for BGET and BPUT operations- and 
should set code to &BØØ in line 1900. 


The two new commands will work in 
immediate mode only. They will work with 
the cassette as well as the disc filing 
systems. The program is assembled relative 
to the Basic in your machine, and cannot 
be transferred to another machine with a 
different Basic without being re- 
assembled. 

ERE ERE EEE E APR BR EE FEE En a E 
EE me 
10 REM PROGRAM MERGE and PARTSAVE 
20 REM VERSION BØ.18 
30 REM AUTHOR Jagdish Sah 
40 REM BEEBUG November 1986 
5Ø REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 
code=& 908 
PROCassemble: PROCchecksum 
IF S%<>chksum%: PRINT'"Checksum err 
Or" END 
130 PRINT''"Type"''"*SAVE MERGEMC ";^c 
ode;" rupe 
140 PRINT'"to save the machine code pr 
oduced." ' 
150 END 
160 : 
1000 DEF PROCassemble 
1010 REM Syntax: 
1020 REM *MERGE <fsp>,<start>,<end> 
1030 REM *PSAVE <fsp>,<start>,<end> 
1040 osfind-&FFCE: osbget=&FFD7 
1050 osbput-&FFD4:osbyte-&FFF4 
1060 osargs-&FFDA:osfile-&FFDD 
1078 page-&18:cmdptr-&19:ycmd-&lB 
1080 newno-&2A:lineptr-&70:start-&72 
1098 end-&74:handle-&76:savey-&77 
1100 newlen-&78:temp-&79:stack-&7A 
1118 pblk=&7E:anycom=&F8 
1120 IF ?&8Ø15=ASC ("1") : RESTORE 2750:EL 
SE IF 7&8Ø15=ASC("2") : RESTORE 278Ø:ELSE 
IF ?88Ø15=ASC ("4") : RESTORE 2810:ELSE RES 
TORE 2840 
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READ insline,chkprog,getnumB 
READ getcharB,basic,chksum$ 


J FOR opt=Ø TO 2 STEP 2 


P%=code: [OPT opt 

LDA &2Ø9:CMP #newrtn DIV 256 
BEQ out:STA oldrtn2+2 

LDA &2Ø8:STA oldrtn2+1 

LDA #newrtn MOD 256 

SEI:STA &208:LDA #newrtn DIV 256 
STA &209 

CLI 

.out RTS 

.oldrtn LDX cmdptr 

LDY cmdptr-*]:PLA:PLP 
.oldrtn2 JMP Ø 


.getval 
JSR getnumB:BEQ badarg:BMI badarg 
BIT&F8:BMInocom:JSR getcharB:CMP # 


77) 


BNE badarg:.nocom:LDA newno+2 
ORA newno+3:BNE badarg 

LDX newno+1:BMI badarg 

LDA newno:RTS 

.badarg BRK 

OPT FNequb (&FE) 

OPT FNequs("Bad Arg") 

OPT FNequb (Ø) 


.newrtn 

PHP: PHA:STX cmdptr:STY cmdptr+1 

JSR chkprog:LDY #Ø:STY lineptr 
.chkemd LDA cmd,Y:BEQ merge 

CMP (cmdptr),Y:BNE chk2 

INY:BNE chkcmd 

.chk2 LDY 40 

.chkcmd2 LDA cmd2,Y:BEQ partsave 

CMP (cmdptr),Y:BNE oldrtn 
INY:BNE chkcmd2 


merge 
LDA #&40:JSR init 

.merge2 JSR getbyte:CMP #&@D 
BNE close:JSR getbyte 
newno+1:JSR getbyte 
newno:JSR getbyte 
newlen:LDA newno 
start:LDA newno+1 
Start*l:BCS merge3:LDX #4 
.Skipline JSR getbyte: INX 

CPX newlen:BNE skipline 

BEQ merge2 

-merge3 LDA end:CMP newno 

LDA end+1:SBC newno+1 

BCC close:LDX #4 

-getall JSR getbyte:STA &7ØØ,X 
INX:CPX newlen:BNE getall 

LDA #&@D:STA &700,X 

JSR setbasic:LDY #4 
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1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1818 
1820 


JSR insline:CLC:BCC merge2 


.close 

LDA #@:TAY:JSR osfind 
-close2 LDX stack:TXS 
JSR setbasic:JMP basic 


.getbyte 

LDY &FF:BMI close 
LDY handle:JSR osbget 
BCS close:RTS 


1830 : 


1840 
1850 
1860 
1870 
1880 
1899 
1900 
1910 
1920 
1930 
1940 
1958 
1960 
1978 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2188 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 


.partsave 

LDA $&80:JSR init 

.psave2 LDY #2 

LDA (lineptr),Y:CMP start 
DEY:LDA (lineptr),Y 

SBC start+1:BCS psave3 

JSR inclineptr:BCC psave2 
.psave3 LDA &FF 

BMI exitpsave:LDY #2 

LDA end:CMP (lineptr),Y:DEY 
LDA end+1:SBC (lineptr),Y 
BCC exitpsave:LDY 43 

LDA (lineptr),Y:STA temp 
LDY HØ:STY savey 

.psave4 JSR putbyte 

LDY savey:CPY temp:BNE psave4 
JSR inclineptr:BCC psave3 
.exitpsave LDA $&ØD 

JSR putbyte2:LDA #&FF 

JSR putbyte2:LDA #0: TAY 

JSR osfind:LDA #Ø:TAY 

JSR osargs:CMP #4:BNE exitps2 
LDX #pblk MOD 256 

LDY #pblk DIV 256 

LDA #1:JSR osfile 

.exitps2 JMP close2 


.inclineptr 

LDY #3:LDA (lineptr),Y 
CLC:ADC lineptr:STA lineptr 
BCC inclineptr2:INC lineptr+1 
.inclineptr2 CLC: RTS 


.putbyte 
LDY savey:INC savey 
LDA (lineptr),Y 


.putbyte2 LDY handle:JMP osbput 


.Setbasic 

LDA #&BB:LDX #@:LDY #&FF 
JSR osbyte:TXA:TAY:LDA #&97 
LDX #&3Ø:JMP osbyte 


.init 

PHA:STY ycmd:LDY$40:STYanycom 
LDA ycmd:CLC:ADC cmdptr 
TAX:STX pblk:LDA cmdptr+1 
ADC 40: TAY:STY pblk+1 
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2320 LDYycmd:.retlp:LDA (cmdptr) ,Y: INY 
2330 CMP#ASC(",") :BNEretlp 

2340 LDA#13:STYycmd:DEY: STA (cmdptr) ,Y:L 
DY pblk+] 

2350 PLA:JSR osfind:TAX:BNE opened 

2360 BRK:OPT FNequb (200) 

2370 OPT FNequs ("Can't open file") 

2380 OPT FNequb (Ø) 

2390 .opened STA handle:LDYycmd:JSR get 
val 

2400 STA start:STX start+1l:DECanycom 
2410 JSR getval:STA end:STX end+1 

2420 ORA end+1:BNE notzero:LDA #&FF 
2430 STA end:LDX #&7F:STX end+] 

2440 .notzero LDA page 

2450 STA lineptr+1:TSX:DEX:DEX 

2460 DEX:DEX:STX stack:LDX 47 

2470 .init2 LDA addr,X:STA &38C,X 

2480 STA pblk+2,X:LDA 40 

2490 STA pblk+1Ø,X:DEX:BPL init2:RTS 
2500 : 

2510 .addr OPT FNequd(&FFFF19ØØ) 

2520 OPT FNequd (&FFFF8023) 

2530 .cmd OPT FNequs ("*MERGE ") 

2548 OPT FNequb (ø) 

2550 .cmd2 OPT FNequs ("*PSAVE ") 

2560 OPT FNequb (0) 

2570 ]:NEXT 

2580 ENDPROC 

2590 3 

2600 DEF FNequb (byte) 

2610 ?P%=byte:P%=P%+1:=opt 

2620 : 

2630 DEF FNequd (num) 

2640 !P%=num:P%=P%+4:=opt 

2650 : 

2660 DEF FNequs (AS) 

2670 SP%=AS:P%=P$+LEN (AS) :=opt 

2680 : 

2690 DEF PROCchecksum 

2700 S$-0 

2710 FOR J$-code TO P%-1:5%=5%+2J% 
2720 NEXT: ENDPROC 

2730 : 

2740 REM Basic-I entry points and check 
sum value 

2750 DATA &BCAA,&BE88,&9B03 

2760 DATA &8A13,&8A96,59562 

2770 REM Basic-II entry points and chec 
ksum value 

2780 DATA &BC8D,&BE6F,&9B29 

2790 DATA &8A8C,&8AF3,5976Ø 

2800 REM Basic-IV entry points and chec 
ksum value 

2810 DATA &BB15,&BDE5,&9D3B 

2820 DATA &8ED5,&8F83,59746 

2830 REM Basic-VI entry points and chec 
ksum value 

2840 DATA &BA65,&BD45,&9D1B 

2850 DATA &8EAE,&8F64,59563 
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„ BUSINESS. 
> GRAPHICS. 
; (Part 1) 

1 2 3 4 4 5 6 


Graphs, charts and diagrams are the 
heart of any business data system. 
Alan Dickinson has pushed the Beeb 
to its limits to produce an outstand- 
ing business graphics system com- 
bining both power and flexibility 
with an easy-to-use approach. 


The BBC micro has always received 
praise for its graphics capabilities, and 
Acorn provide some very powerful graphics 


routines as standard operating system 
software. | We have enjoyed some quite 
breathtaking games, but hard-nosed 


business applications have been few and 
far between. 


1986 was predicted to be the year of 
business graphics, (but so was '85, and 
'84). Windows and icons have become 
fashionable, but still we have Seen 
relatively little business software to 
exploit these features. Here then is the 
BEEBUG Business Graphics package, a 
no-compromise program that pushes BBC 
Basic and the model B to its limits. By 
writing it in Basic, it will be easier for 
owners of shadow RAM cards, graphic 
extension ROMs, and Masters to expand the 
program and produce even more stunning 
displays, or to interface this program to 
the data files of other software. 


This article, and program, will be in 
three parts. This month we present the 
basic graphics software, which will 
produce high quality bar charts and line 
charts on screen from data contained in 
DATA statements. Next month we will be 
printing the code for a menu-driven front 
end, allowing you easily to set up and 
modify graphs, and save the data 
independently of the program, and in the 
Jan/Feb issue we will be printing various 
extra routines to display pie charts and 
3D charts. It will be much easier to 
combine these various bits of code if you 
keep to the line numbers used here. 
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USING THE PROGRAM 

To see just how good the graphics are 
type in this month's listing and save to 
disc or cassette. Just run the program and 
it will immediately start to create a 
screen display of a bar chart complete 
with scales, ,title, legends etc. All the 
information to control the screen display, 
and the data used, is contained in DATA 
statements from line 5000 onwards, though 
this will change when part two is added. 


By changing the values listed in the 
DATA statements you can vary all the 
parameters (and data) to see the range of 
graphs and charts that are possible. This 
is described in detail in the next 
section. Each time you modify this 
information you will then need to re-run 
the program to generate a new display. 


UNDERSTANDING THE DATA 

The first four pieces of data in the 
program are the title, subtitle, x-axis 
title and y-axis title. There is then a 
numeric value to describe the choice of 
chart layout with values of: 

Ø - Stacked bar chart 
- Clustered bar chart 
- Bar chart of first "ON" variable 
- Range chart 
3D chart 
- Line chart 
- Pie chart of first "ON" column 


DU m 0) NO — 
I 


Options 4 and 6 will be implemented later, 
but it is well worthwhile re-running the 
program using each of the other display 
options in turn. The next value in the 
data is the grid flag, and when this is 1 
a background grid will be drawn behind the 
bars (put a 'Ø' if this is not needed). 
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Business charts frequently have time 
intervals along the x-axis of a bar chart, 


and up to 13 such intervals may be 
displayed. The next 4 lines of data 
describe a legend for each of the 13 


columns, and a switch to indicate if each 
column is OFF (Ø) or ON (1). 


Each column in the chart may have up 
to 7 pieces of data associated with it, 
(variables), and the next 4 lines of data 
describe the legend of each variable, a 
flag to indicate if the variable is ON or 
OFF, and a patterning code in the range 
0-255 (used to shade the appropriate part 
of each chart). 


The switches on the columns and the 


variables allow chunks of data to be 
Switched off without actually being 
deleted, very useful if you just want to 


see what the graph looks like without one 
of the variables or one of the columns. 
This technique can also be used to display 
fewer than the maximum 13 columns and/or 7 
variables as shown in the example data. 


The final lines of data statements are 
the actual data, one line for each of the 
seven variables with one value (default Ø) 
in it for each of the thirteen columns. 


Demonstration Data 
BBC Micro Business Graphics 
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Jan Feb Mar fipr May Jun 
Trend for 1986 


In operation, the program takes care 
of all aspects of graph layout. Titles are 
centred and text is proportionally spaced. 
Areas for legends are calculated from the 
lengths of the legends to ensure that 
maximum room is available for the plotting 
of the graph whilst retaining legibility 
of text, and scaling is carried out to 
ensure that the bars produced neatly fill 
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the plotting area. Every effort has been 
made to produce charts of the highest 
quality possible on a BBC screen. 


19 REM Program GPROG (Part 1) 

20 REM Version Bl.1 

30 REM Author Alan Dickinson 

40 REM BEEBUG November 1986 

50 REM Program subject to copyright 
60 : 

1900 MODE4:VDU23,1,0;0;0;0; 

110 VDU23,240,&88F8;&8888;&F8;0;23,241 
,8D870; &D888; &70;0;23,242,& 7020; &70F85 &2 
0;0;23,243,&F8F8; &F8F8;&F8;0; 

120 DIMCS(12) ,C$ (12) ,V$(6) ,V$ (6) ,H$(6) 
,N(12,6) :pS-STRINGS (20," ") 

140 PROCload:PROCdis:A$-GET 
200 MODE7:END 
210 : 
719 DEFPROCload 
720 READ $&98Ø,S&9AØ,S$&9CØ, S&9EØ,Z%,G% 
1730 FORJ$-0TO12:READ C$ (J%) ,C% (J%) :NEX 
T:FORJ$-0TO6:READ VS$(J$),V$ (J%) ,H% (J2) :N 
EXT 
740 FORJ$-0TO6:FORK$-0TOl2:READ N(K$,J 
$) :NEXT: NEXT 
1750 ENDPROC 
970 DEFPROCdis:VDU26 
975 IFZ%=40RZ%=6 PRINT''"Option not av 
ailable."''"Press any key":ENDPROC 

1980 PROCbox (0,0,1279,1023,0) : PROCsetcv 

1999 IFV%=Ø0RC%=ØPROCzw(36,"NO DATA"):P 
RINT''"All variables and/or columns are 
OFF"''"Press any key":A%=GET:ENDPROC 

2000 PROCtitles: R%=1200: P$=72: IF (Z%<>2 
AND (Z%<>3) AND (Z%<>6) AND (V3>1) PROClegend 
2010 IFZ%<6PROCyscal : ELSEPROCcolmax (D$) 
2020 PROCxaxis:IFZ$«5PROCbarch: ELSEIFZ% 
«6PROClinech:ELSEPROCpie 

2030 ENDPROC 

2040 DEFPROCsetcv:LOCALJ%:V%=Ø:W%=Ø:C%= 
0:W$-0 

2050 FORJ%=6TOØSTEP-1:IFV% (J£) >ØV3=V3+1 
:W$-J$ 

2060 NEXT 

2070 FORJ$-12TOQSTEP-]1:IFC$(J2)»0C2-C24 
1:D$-J$ 

2080 NEXT:ENDPROC 

2090 DEFPROCtitles:Q£-112:52$-1003 

2100 IF$&98Ø<>""PROCtxt($&98Ø,5,64Ø,5%) 
:53=5%-48 

211Ø IFS&9AØ<>""PROCtxt(S&9A0,3,64Ø,S%) 
:53=5%-48 

2120 IFZ%<6PROCtxt($&9EØ,11,2Ø,511) 
2130 S$-S$-16:ENDPROC 

2140 DEFPROClegend 

2150 K$-0:dK$-0:FORJ$-0TO6 

2160 IFV$(J2)»0L$-FNtwid (VS (J%) ) : IFZ2-4 
L3=L%-dK%:dK%=dK%+48 
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2170 IFLS»K$K$-L$ 

2180 NEXT 

2190 R&=R%-K%:Y%=5%-96: IF (Z3<>3) AND (Z2« 
>4) PROCtxt ("KEY",83,R%,Y3) : Y$-Y2-80:FORJ 
$-0TO6: PROC1gbox (J%) : NEXT: R3=R%-4Ø: ENDPR 
OC 

2200 R%=R%-48*V%:5%=5%-48*V% 

221Ø X%=R%+48:Y%=Q%+24: FORJ3=ØTO6 

2220 IFV%(J%) >ØPROCtxt(VS(J%),17,X%,Y%) 
:X$-X$-48:Y29-Y2448 

2230 NEXT: ENDPROC 

2240 DEFPROClgbox (J%) : LOCALh$:h%=H (J2) 

2250 IFV%(J%) =@ENDPROC 

2260 IFZ%<4PROCbox (R$,Y$-40,R$448,Y248, 
h%) ELSEIFZ$-5PROCline(R$,Y$-8,R2448,Y2-8 
,h$) 

2270 PROCtxt (VS (J%) ,19, R68, Y$) 

2280 Y$-Y$-64:ENDPROC 

2290 DEFPROCyscal 

2300 PROCgrmax:PROCscalmax 

2310 PROCdrscal:ENDPROC 

2320 DEFPROCgrmax:LOCALJ$ 

2330 gmax-0:gmin-9999999999:gsum-0 

2340 FORJ$-0TO!2 

2350 IFC$(J$)»0PROCcolmax (J%) : PROCcolad 
2360 NEXT:M$-gmax*.99:m$-gmin-.99:gave- 
gsum/ (V$*C$£) : IFm$»0m$-0 

2370 ENDPROC 

2380 DEFPROCcolad 

2390 IFZ%=Ø cmax=csum:cmin=Ø 

24ØØ IFcmax>gmax gmax=cmax 

2410 IFcmin<gmin gmin=cmin 

2420 gsum=gsum+csum: ENDPROC 

2430 DEFPROCcolmax(J%) 

2440 cmax=Ø:cmin=9999999999:csum=Ø 

2450 IFZ%=2cmax=N (J%,W%) :cmin=cmax:csum 
=cmax : cave=cmax : ENDPROC 

2460 FORK%=ØT06:IFV%(K%)>Ø PROCcell 
2470 NEXT: cave=csum/V%: ENDPROC 

2480 DEFPROCcell:dzN(J$,K$) 
2490 IFd>cmax cmax-d 

2500 IFd<cmin cmin=d 

2518 csum=csum+d: ENDPROC 
2520 DEFPROCscalmax:N%=M%:n% : 
2530 REPEAT: P%3=P%+32: j3=j3*1]1Ø:N% 
Ø:n%=n3%DIV1Ø: UNTILN$-0ANDn$2-0 
2540 j$-j$DIV100:1Fj$-0j$-1 

2550 M$-(M$*j$-l)DIVj$*j$:m$-(m$-j$*1)D 
IVj$*j$:N$-M$:n$-m$ 

2560 IFN%>ABS (n$) T3=N%ELSETS=-n% 

2570 t$-16* (T$/(N£-n$)):T$-T$DIVj$ 

2580 IFT$»t$REPEAT:T$-T$/240.99:j$-j2*2 
:UNTILT$«t$ 

2590 M$-(M$*j$-1)DIVj$*j$:m$-(m$-j$41)D 
IVj$*j$:Y-(S$-0$) / (M$-m$) : IFM3<ØP3=P3+32 
2600 IFZ$-4 PROCcube:ELSEPROCbox(P%,0%, 
R3+16,5%+16,0Ø) 

261Ø ENDPROC 

2640 DEFPROCdrscal:PROCdrscal2(M%) 
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2650 IFm$-ÜENDPROC 

2660 MOVEP%,0Q%-m%*Y:PLOTI,R%-P%+16,Ø: PL 
OTØ,Ø,-4: PLOT] ,- (R%-P3+24) ,Ø 

2670 PROCdrscal2 (m%) : ENDPROC 

2680 DEFPROCdrscal 2 (a£) 

2690 FORJ$-0TOa$STEPj$*SGN (a3) 

2700 MOVEP$,FNypos (J$) 

2710 PLOT1,-8,0:PLOTO,-4,16 

2720 PROCtxt (STRS (J%) ,163,0,0) 

2730 IF (G$21)AND (Z$«»4) MOVEP$ , FNypos (J% 
) : PLOT25,R%+16-P%,Ø 

2740 IF (G3=1) AND (Z%=4) MOVEP%,FNypos (J%) 
: PLOT] ,S%,S%: PLOT25,R%-P3,8 

2750 NEXT 

2760 ENDPROC 

2770 DEFFNypos (y) -Q$* (y-m$) *Y 

2780 DEFPROCxaxis 


PROGRAM NOTES 

The program is quite tight on memory, 
and uses mode 4 as good resolution was 
felt to be more important than colour. 
Users with shadow RAM could of course have 
the luxury of both. The following routines 
will be of particular interest to readers 


PROCtxt( T$,p,x,y ) - line 3450 

This routine writes proportionally 
spaced text T$ at co-ordinates (x,y). The 
text can be centred over the point or 
aligned to start or end at that point. It 
can be rotated through 90 degrees for axis 
labelling, all under the control of 
parameter p. Most importantly though, the 
bottom two least significant bits of p 
select the colour of the text. 


PROCbox( xl,yl,x2,y2,p ) - line 3790 

This routine draws a box on the screen 
at the co-ordinates (xl,yl)-(x2,y2). The 
parameter p is a value in the range 0-255 
indicating how the box should be filled. 
The code in this routine is designed to 
give a good range of patterns in mode 4, 
but could easily be re-written to make use 
of either the four colours available in 
mode 1, or the pattern-fill capabilities 
of the Graphics Extension ROM (or Master 
Series), or even both. 


PROCline( xl,yl,x2,y2,p ) - line 3980 

Likewise, this routine draws lines 
between the co-ordinates in either dotted 
or solid lines and with various point 
markers all under the control of the 
parameter p. 
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2790 IFZ%=6PROCtxt(S&9EØ+" - 
, (P3+R%) /2,49) : ENDPROC 

2800 IF(Z%<>2)AND(V%>1) PROCtxt($&9CØ,3, 
(P$4R2)/2,40) ELSEPROCtxt ($89CO*" — "+VS( 
W2),3, (P$*R2)/2,40) 

2810 PROClabcols:ENDPROC 

2820 DEFPROClabcols:n%=1:X=(R%-P%)/(C%+ 
1):FORj$-0TOl2 

2830 ‘IFC% (j%) >ØMOVEP%+X*n%,0Q0%: PLOT1,0,—- 
8: PLOTØ,Ø,-8:PROCtxt (C$ (33) ,131,Ø,Ø) :n$- 
n+] 

2840 NEXT: ENDPROC 

2850 DEFPROCbarch:n$-0 

2860 FORJ$-0TO12 

2870 IFZ%=ØIFC%(J3) >ØPROCstack (n$) 

2880 IFZ$-lIFC$(J$)»0PROCClust (n$) 

2890 IFZ$-2IFC$(J$)»0PROCbar (n%) 

2900 IFZ$-3IFC$(J£)»0PROCrange (n$) 

2910 IFZ$-4IFC$ (J$) »ÜPROCthreeD (n%) 
2920 IFC%(J%)>Øn%=n%+1 

2930 NEXT: ENDPROC 

2940 DEFPROCstack (n%) :LOCALA%,B%,X%,Y% 

2950 A%=P%+X*n%+16+X/2:B%=Q%: X%=A%+X-16 

2960 FORK%=6TOØSTEP-1 

2970 IFV%(K%) >ØD=N(J%,K%) : Y3=D*Y+B%: PRO 
Chox (A%,B%,X%, Y3,H% (K%) ) :B3=Y% 

2980 NEXT: ENDPROC 

2990 DEFPROCClust (n%) :LOCALA%,B%,X%,Y% 

3000 A$-P$4X*n$4X/2-8:X$-A$4X-32 

3010 skip-(X$-A$)/V$ 

3020 FORK$-0TO6 

3030 IFV$ (K%) >ØYS=FNypos (N(J%,K%) ) : PROC 
box (A$ ,FNypos (Ø) ,A$4skip,Y$,H$ (K%) ) :A$-A 
$+skip 

3040 NEXT: ENDPROC 

3100 DEFPROCbar (n%) :LOCALA%,B%,X%,Y% 

3110 A%=P%+X*n%+X/2:B%=FNypos (Ø) 

3120 X%=A%+X:Y%=FNypos (N (J$,W$) ) 

3130 PROCbox(A%,B%,X%,Y%,H%(W%) ) 

3140 GCOLØ,Ø:MOVEX%+4, Y3-4:DRAWX%+4 ,B%+ 


"4C$ (D2) ,3 


4 

3150 GCOL0,1:MOVEX$,Y$:DRAWX$48,Y$-8:DR 
AWX$48,B$ 

3160 IFN(J%,W%) <ØMOVEX3+8,Y%-8: PLOT] , -X 
,0: PLOT1,8,8 

3170 ENDPROC 

3180 DEFPROCrange (n$) :LOCALA%,B%,X%,Y%: 
PROCcolmax (J%) : VDUS:A$=P%+X*n%+X:B%=FNyp 
os (cmin) : Y$2FNypos (cmax) 

3190 MOVEA%-8,B%+8:VDU243:MOVEA%-8, Y%+8 
: VDU 243: MOVEA 2-4 ,B3 : DRAWA 3-4 , YS :MOVEAS+4 
,B%: DRAWA%+4 , Y% : MOVEA$-8 , FNypos (cave) +8: 
VDU243: VDU4 : ENDPROC 

3200 DEFPROClinech:FORJ$-0TO6 

3210 IFV%(J%) >ØPROCtrace(J%) 

3220 NEXT: ENDPROC 

3230 DEFPROCtrace (J%) : LOCALN% , K$ ,L.$ 

3240 N$-0:L$-0:FORK$-0TO12 
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3250 IFC$(K$)»0IFN2»0PROCline (P$4X*N$ ,F 
Nypos (N(L3,J%) ) ,P$*X* (NS+1) ,FNypos (N (K3, 
J$)) ,H$ (72) ) 

3260 IFC$(K2)»0L$-K$:N$-N$4] 

3270 NEXT: ENDPROC 

3450 DEFPROCtxt (TS,P%,X%,Y%) : LOCALC%,Q% 
,E% ,W3,J%: IFT$=""ENDPROC 

3460 E%=1: IF (P%AND8) =ØQ%=ØELSEQ%=] 

3470 IF (P%AND16) >ØTHENE3=Ø 

3480 IF (P%AND32) >OTHENES=2 

3490 GCOLØ, (P3AND3) : IF (PSAND1 28) =ØMOVEX 
$ , YSELSEPLOTO , X%,Y% 

3500 W2=FNtwid (TS) 

3510 IFQ$=ØANDES=|PLOTØ,-W%DIV2,Ø 

3520 IFQ$=ØANDE%=2PLOTØ,-W%,Ø 

3530 IFQ%=1ANDE3=|PLOTØ,Ø,-W%DIV2 

3540 IFQ$=1ANDE%=2PLOTØ,Ø,-W% 

3550 IF (P%AND64) >ØANDQ%=ØPLOTØ,Ø,-28:PL 
OT1 ,W3, 0: PLOTØ,-W%, 36 

3560 IF(P%AND64)>ØANDQ%=1PLOTØ, 36,-32:P 
LOT! ,Ø,W%: PLOTØ,-36,-W%+32 

3570 VDUS:FORJ%=1TOLEN (TS) 

3580 C%=ASC (MIDS (T$,J$,1) ) :W%=FNcwid (C$ 
) 

3590 IFQ$-lPROCinv:C$-228 

3600 VDUC$:IFQ%=ØPLOTØ,W3-32,Ø ELSEPLOT 
0,-32,W$ 

3610 NEXT: VDU4: ENDPROC 

3620 DEFFNtwid (TS) : LOCALT$ ,J$ ,C$ 

3630 FORJ%=1TOLEN (TS) 

3640 T=TS+FNcwid (ASC (MIDS (T$,J%,1))) 

3650 NEXT: =T% 

3660 DEFFNcwid(C%) : LOCALX$ ,Y%,A%,j%,k% 

3670 X%=&7Ø:Y%=Ø:A%=&A:?X%=C%:CALL&FFF] 

3680 j$-?&710R?&720R?&730R?& 740R?& 750R? 
&760R?&770R&78 

3690 IFj3=ØTHEN=16 

3700 k$-236:j2$-j$*2:REPFAT 

3710 j$-j$DIV2:k$-k2-4 
3720 UNTIL (j$AND1) «50: -k$ 
3730 DEFPROCinv:LOCALJ%,K%,L% 

3740 VDU23,228:FORJ$-1TO8:L$2-0 
3750 FORK$-&71TO&78:L$-L2$*2 
3760 IF(?K%M0D2)=1L%=L%+1 
3770 ?K$-?K$DIV2: NEXT: VDUL$ 
3780 NEXT: J$-FNcwid (228) : ENDPROC 
3790 DEFPROCbox (P$,Q2 ,A%,B%,C%) 

3800 LOCALI$,J%,K%,L%,M%,N%,S%,X%,Y% 
3810 IFP%>A%I%=A%:A%=P%:P%=I% 

3820 IFQ%>B31%=B%:B%=0%:0%=I% 

3830 GCOLØ,1 :MOVEP%,Q%:DRAWP% ,B%: DRAWA% 
,B$:DRAWAS , Q3 : DRAWPS ,Q$ 
3840 IFA%-P%<120RB%-Q%<12ENDPROC 
3850 VDU24,P%+4;0%+47A%-4;B3-4; 

3860 GCOLØ,128+(C%AND1) :CLG 
3870 IFC%<2VDU26: ENDPROC 
3880 GCOL4,0:S%=8: IF (CZAND64) >0S%=12 
3890 I3=P%DIV16*16:K%=(A%3+15)DIV16*16 
3900 J3=Q%DIV16*16:L%=(B%+15)DIV16*16 


3910 Y$-L$-J$:X$-K$-I$ 
—-80 
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MICRO TRADER 


Micro Trader, an integrated accounts 
package for the small business, has 
been quietly building a reputation for 
itself in recent months. Simon Willi- 
ams has been assessing what it has to 
offer the business user. 


Product : Micro-Trader 


Supplier : Meadow Computers 
11 London Street, 
Whitchurch, Hants RG28 7LH. 
Tel. (025682) 2008 

Price : £230.00 plus £110.00 for the 
stock module (Micro-Stock). 
Price includes 4 discs and 
A4 manual. 

If you talk to anyone running their 
own business, they'll nearly always admit 
that they spend more time doing their 
accounts and preparing VAT returns than 
any other form of administration. Hardly 
surprising then that accounting software 


has proved so popular among the uses to 
which the BBC Micro has been put. To be of 
real use, though, accounting software has 
to be reliable and easy to use. Combining 
these two requirements with the 
flexibility to tailor the package to many 
different businesses is quite a task. 


Micro Trader was written by a 
businessman with all these factors in 
mind, and is straightforward and robust 


without becoming bogged-down with 'help' 
messages. The basic package is supplied as 


four discs and a 6Ø page A4 manual which 
is  daisy-wheeled rather than being 
printed. This doesn't detract from the 


presentation, which is clear and legible, 
nor the content, which is concise and 
informative without being patronising or 
full of jargon. 


The version supplied for review 
contained the optional stock control 
module, which is fully integrated with the 
rest of the system. It is also available 
separately though, or as a supplement to 
the main package which consists of the 
three Sales, Purchase and Nominal ledgers. 
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Ref /Stock FX88---- 


Details COMPUTER PRINTER 


Dept Code | PE 


3 Product Tupe | PR 


Supplier 5882 5 Re-Order 
URT Code 1 

Cost Pr. 

Sell Pr. 

AV. Cost 


FI 
Input AMEN 


The idea of integrating the stock 
control module is that entering details of 
sales or purchases in the ledgers 
automatically updates the stock levels, 
removing the need to enter the same 
transaction twice. 

SETTING UP 
When you run Micro-Trader you are 


first presented with a sign-on screen. The 
whole of Micro-Trader uses mode 7 screens, 
which limits the amount of information 
which can be displayed at any one time, 
but does allow coloured highlights. You 
have to enter the date on this screen, but 
no password. There is no  sign-on 
protection, although you have to enter a 
security code to use the final accounts 
module. This is a reasonable approach as 
Micro-Trader is largely aimed at the small 
(often one-person) business. 


After entering the name and address of 
your company, which is used automatically 
to head invoices and statements, You- can 
start to fill up your stock list, add 
Nominal ledger accounts (although there is 
a wide variety of pre-defined accounts), 


and enter your purchase and sales account 
details. Each sales account may be 
assigned a discount level. 
SALES LEDGER 

This ledger can hold up to 450 
accounts for regular customers.  Transact- 


ions can be fed into any of these accounts 
as goods are sold to them. Invoices are 
issued by the system and may be printed 
out on any Epson-compatible printer. 


If the customer doesn't pay promptly 
(and many don't these days!), you can 
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Statement 
MEADOW COMPUTERS 


R. J. SMITH + Co 11, London S 

Long Lane Whitchurch 

Westbury, Hants 

Avon BS20 8RR RG28 7LH 
TEL: (025682 

V.A.T. No 36 


Account No. st 
Statement No. 
13.09.86 


Date Invoice No. T/X Goods Va 
Credits Invoice Value 


Brought Forward 
04.84 123 IN 


456 CH 2159.68- 


456 SD 55.38 


STATEMENT TOTALS 450.00 ^ 2215.06- 


SETTLEMENT DISCOUNT DEDUCTABLE AT 5 X 
22.50 If Paid By 30 of Month Statement TOTAL 


Aged Balances 1 MONTH 2 MONTHS 3 MONTHS 
0.00 515.13 0.00 


Remittance Advice 
MEAI OW COMPUTERS 
Statement Date 


Account No 1003 Balance Due 


SETTLEMENT DISCOUNT DEDUCTABLE AT 5 % 
£ 22.50 If Paid By 30 of Month Remittance Enclosed 


issue statements individually or bracketed 
by lateness! These statements look 
suitably 'official' and ` include a 
pre-printed remittance advice for the 
tardy customer to tear off and return with 
his or her payment. 


Sales reports include an Aged Debtors 
report (not a list of all your customers 
over 70!) and a bulk print of all 
outstanding Statements. This report 
excludes any accounts with a zero or 
positive balance, which saves your postage 
and your customers' tempers. 


PURCHASE LEDGER 

This ledger has the same size limits 
as the sales ledger and handles all 
purchases of goods or services into the 
company, whether from one of your regular 
suppliers or on a one-off basis. 
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Each purchase can be 
posted to the appropriate 
Nominal ledger account. The 
System maintains a Journal 
So that you can make 
arbitrary postings to 
correct mistakes. 


treet 


)2008 


2 9561 31 


MIC A number of reports are 


atement Date available from the Purchase 
8/86 ledger including an audit 
trail and an account 

1ue report, and as with reports 


from the Sales ledger, 
these can be directed to 
the screen or the printer. 
No  'Suggested  Payments' 
report is available to help 
you hang on to your money 
as long as possible, 
although some of the 
information can be gleaned 
from the ‘Aged Creditors' 
report. 


NOMINAL LEDGER 

- This is where you 
++ assign all the money going 
into and out of your 
company. The Nominal ledger 
contains up to 400 named 
accounts and can handle up 
Rad to 4000 transactions a 

` month. 


514.13 


Forty-odd pre-defined 
£ accounts cover the main 
=== areas of business activity, 

but you can add to these to customise the 
ledger to your own needs. Each account 
belongs to one of 20 pre-defined 'types' 
which are used by Micro-Trader to link 
together groups of accounts. 


When you come to post your 
transactions to particular Nominal ledger 
accounts, the program uses three function 
keys to select options from menus. Each 
key controls a selection from one of three 
menus and each is a refinement of the 
final choice. Overall this is a quick and 
convenient way of working. 


STOCK CONTROL 

The stock control module offers a 
database of up to 4000 items and holds 
details of price, stock code, description, 
product type and supplier. You can hold up 
to 9999 of any item and turnover up to 
99999 in a year. 
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Each stock record is of 
a fixed format but there is 
a nice touch in the 
calculation of the average 
cost price. If the price of 
the item changes, so you 
have two or more batches of 
the same product in stock 
at different prices, the 
average cost is maintained 
by the program and used 
when valuing stock. 


MEADOW COMPUTERS 


ÅKE 
*STOCK LEDGER-STOCK LIST* 
Å koke 


Prod. Quantity 


LISTING PAPER BOX 1000 
PRINTER RIBBON CARTRIDGE 
COLOUR MONITOR 

GREEN SCREEN MONITOR 
64K MICROCOMPUTER 
SINGLE DISC DRIVE 100K 
DUAL DISC DRIVE 800K 
BOX 10 DISCS - S/S S/D 
BOX 10 DISCS - D/S S/D 
FLOPPY DISC - D/S D/D 


COMPUTER PRINTER 


RED TAPE 


When you raise an 
invoice, the details of any 
stock items are auto- 
matically fetched from this 
module and inserted into the sales 
documentation. 


When you come to the end of an 
accounting period (and Micro-Trader allows 
you to define several of these) all 
end-of-period calculations are done by the 
computer, which then closes off the 
accounts so you can't go back and make 
alterations. 


Before it does this, though, it 
produces a report for auditing the system 
and a nominal ledger listing. At the end 
of the financial year the year-end final 
accounts routine will produce all the 
necessary documentation and then clear 
your books for the start of the new one. 
It will also produce a VAT report. 


Micro Trader handles VAT within your 
accounts and can produce all your VAT 
returns in a suitable form for the tax 
officer. You can define up to ten 
different VAT rates. 


When you close the package down at the 
end of the day, you're guided through a 
backing-up sequence which tries to ensure 
that you're never left without data, even 
if two out of three sets of discs are 
destroyed. The manual includes a 'data 
logging' sheet to help you keep track of 
the rotation of your disc sets. This is 
typical of the attention to detail 
throughout Micro-Trader. 


One of the very effective features of 
Micro-Trader is the management information 
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(PER YARD) 


Report Totals 


it produces. You can select a wide variety 
of stock reports, including a re-order 
level listing, which shows which items 
have fallen below your pre-set re-order 


levels. Any of these stock reports can be 
tailored by selecting particular 
department codes, product types and 


supplier codes, or a combination of these. 
These selective reports are very useful, 
particularly when processing a set of 
stock orders. 


CONCLUSION 

As you may have gathered, I'm 
impressed with the Micro-Trader package. 
It seems to be well thought out and 
thorough, and compares very favourably 
with the Peartree Business System 
‘reviewed Vol.5 No.3) or the older, and 
more expensive, Integrated Accounting 
Suite from Gemini. It's flexible and 
should be able to handle the accounts of 
quite large businesses, given a maximum 
turnover of £21 million, with up to £1 
million in any single account. 


You'll need twin 8Ø track drives to 
run with your BBC Micro or Master, and an 
Epson compatible printer. Anyone thinking 
of business applications for a micro 
should consider this as a minimum 
configuration, anyway. 


Anyone considering the use of their 
BBC Micro for accounting in a 


small-to-medium sized business should 
certainly include Micro-Trader on their 
shortlist of possible packages. 
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Machine Filing System Tube 

ME > 2 
- printer with reverse feed. one but you will want to 
Mu Į- If your printer does not alter the header. Switch on 
have this facility, you can your printer, insert some 
column pause the printing and paper and run the program 
rewind the sheet by hand by by pressing Shift and the 
Wordwise substituting a suitable function key which corres- 
routine in place of PROCtop ponds to the segment the 


Ian Waugh describes 
how he has augmented 
Wordwise Plus to pro- 
vide a multiple column 
printout facility, readily 
tailored to your own 
requirements. 


INTRODUCT ION 

There are many occas- 
ions when a multicolumn 
printout of your text would 
be useful. Columns are 
easier to read and more 
attractive to the eye than 
a block of text. Instruct- 
ions and game rules and 
even reports can benefit 
from a multi-column format. 


The routine presented 
here attempts to overcome 
the restrictions imposed by 
the dual-column segment 
program included with the 
Wordwise Plus package. It 
can print text in 2 or 3 
for even more) columns us- 
ing elite, pica, condensed 
or any other form of print. 
You can set the column 
widths and vary the spacing 
between columns. You can 
also see how a column is 
going to look on the page 
and so prevent such layout 
disasters as a heading on 
the bottom of a page with a 
blank line and the text at 
the top of the next column. 


COMPATIBLE PRINTERS 

The program was written 
for the Epson FX80 printer 
and the columns are pro- 
duced by using its reverse 
feed facility. The routine 
should be compatible mwith, 
or easily adapted to any 
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in the program. Reverse 
feed is also used to print 
the headers and footers so 
you may have to forgo these 
unless you can think of a 
way around it. To set the 
column widths the program 
sends Epson codes directly 
to the printer with VDU1. 


USING THE PROGRAM 


Type the program into 
any convenient segment and 
save it before running it. 
When it is debugged you can 
remove the REMS and 
abbreviate the commands to 
save memory. It is 
recommended that you also 


keep a REMed version so you 
can easily refer to and 
alter those variables which 
determine the print format. 


To prepare your text 
for printing, set the 
initial format at the start 
Of your text. This article 
uses the following: 


Cf12PLO66Cf 12 TS3SCf 1 2BSSC DL 
L27«f115JO« f 1 >EP<f 1 >DF 


Headers and footers are 
defined in the program and 
should not be defined in 
the text. Their positions 
on the page can be altered 
by changing the amount of 
reverse feed in their print 
routines. The program 
inserts <f1>BP at the end 
of the text in order to 
print the last page 
correctly. If you run the 
routine more than once, 
don't forget to delete this 
or else write a small 
routine to do it for you. 


The default values in 
the program will produce a 
page layout similar to this 


program is in. 


ALTERING THE PRINT FORMAT 


You can change the 
layout by altering three 
variables: EX, NX and 8X. 


EX is used to calculate the 


column spacing and must be 
set to the number of 
characters per line. Print 


mode is selected by the 
program and should not be 
altered in the text 
although italics and under- 


lining are okay. NX is the 
number of columns you 
require and S% is the 
number of spaces between 
the columns. 

TX is the number of 
normal pages that will be 
produced from the columns. 


The variable P% is used by 
Wordwise Plus to hold a 
copy of the current page 
number. It is updated after 
previewing the text and 
used to calculate the value 
of TX. The section of code 
which does this will delete 
any markers in the text. 


M% is the line length 
and L% is the page length. 
These are picked out of the 
text automatically from LL 
and PL respectively. The 
values given in the program 
are only suggestions but 
they produce well-spaced 
text. 


The print positions of 
the columns, AZ, B% and CX, 
are calculated before the 
printing starts. The first 
column is the most complex 
to calculate but after that 
the others simply add on 
the column line length (MZ) 
and the column spacing 
(84). It would therefore be 
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an easy matter to produce print in four, 
five or more columns. 


HINTS 
Before printing your text, preview it 
to check that the column breaks are neat. 


Line number start (LNS) can be very 
helpful in this respect to ensure 
perfectly aligned text. Finally, if 
reverse feed leaves a line on the paper, 


unlock the paper release lever. 


A M Á——M———— 


REM Wordwise Plus Multi-Column Printer 
REM Version 1.1 
REM Copyright BEEBUG (C) November 1986 
REM E$ - number of characters per line 
REM On standard 11"x9.5" listing paper 
REM the following values apply: 
REM Pica: E%=8Ø 
REM Elite: E$-96 
REM Condensed: E%=137 

$-96 
REM Select print mode. This is elite 
VDU2,1,27,1,33,1,1,3 
REM Number of columns. Set to 2 or 3 
N$-3 
REM Number of spaces between columns 
$%=3 
REM T% = number of 'normal' pages 
SELECT TEXT 
DELETE MARKERS 
CURSOR BOTTOM 
FKEY3 

FKEY3 

DEFAULTS 

PREVIEW MARKED 
DELETE MARKERS 

$- (PS+NS-1) /N% 

REM Insert <fl)BP to print last page 
TYPE " GBP" 

REM Suggested line length (LL) in elite 
REM For 2 columns = 35 

REM For 3 columns = 29 

REM Get LL from text. Set M$-LL 
CURSOR TOP 

FIND "LL" 

CURSOR RIGHT 2 
L$=GCTS 

L$=LS+GCTS 

M$-VALLS 

REM L$ - page length 
REM Get PL from text. 
CURSOR TOP 

FIND "PL" 

CURSOR RIGHT 2 
L$-GCT$ 

L$=LS+GCTS 

L$-VALLS 


Set L$-PL 
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OCCUR 


REM Start print position of Ist column 
A$-(E$-(M$*N$4S$* (N$-1)))/2 

REM Start print position of 2nd column 
B$-A$4M$4S$ 

REM Start print position of 3rd column 
C$-B$4M$4S$ 

REM Define header 

H$="Beebug 2/3-Column Demo " 

SELECT TEXT 

REM Page number in text 

X$-1 

DOTHIS 

REM Left margin for lst column 
VDU2,1,27,1,108,1,A$,3 


PROCprintpage 

REM Define and print footer/page number 
VDU2,1,27,1,108,1,E%/2-3 

PS="PAGE "+STRS((X%-1) DIV N%+1) 

PRINT P$ 

VDU1,27,1,106,1,36 

PROCtop 

REM Print header 

REM Add P$ (ie page number) if required 
DS=HS$+PS$ 

VDU2,1,27,1,1Ø8,1,E%-LENDS-4 

PRINT D$ 

VDU1,19 

VDU2,1,27,1,106,1,36 
VDU1,27,1,106,1,36,3 

REM Left margin for 2nd column 
VDU2,1,27,1,108,1,B$,3 


PROCprintpage 
IF N$-2 THEN GOTO two 


PROCtop 
REM Left margin for 3rd column 
VDU2,1,27,1,108,1,C$,3 


PROCprintpage 
.two 
TIMES T$ 


END 


«Printpage 
DEFAULTS 
PRINT PAGE X% 
X3=X%+1 
ENDPROC 


REM Back to top of page 
. top 

VDU2 

DOTHIS 
VDU1,27,1,196,1,36 
TIMES L$ 


VDU3 
ENDPROC Ë 
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THE BEEBUG PAGE DESIGNER 


PRINTER GRAPHICS 
(Part 3) 


Alex Kang 
completes his 
series on printer 
graphics with a 
full-blown page 
designer for Epson 


The Beebug Page Designer is a 
self-contained package which allows the 
user to design and print pages of mixed 
graphics and text in a wide variety of 
layouts. This means that elaborate 
magazine-style pages may be created, with 
illustrations appearing anywhere on the 


page. Alternatively the Page Designer is 
equally at home with logos and 
letterheads. The system is flexible and 


its uses are legion. 


Page Designer contains all the 
routines that you will need for the task, 
including a windowed screen dump. All that 
you need to supply are suitable mode 4 
Screen dumps containing your designs and 
illustrations. 


INSTALLING THE PAGE DESIGNER 

Because of memory restrictions, the 
Page Designer is presented as two separate 
programs, with menu options to move 
between them. The two programs should be 
typed in separately and saved under the 
names DESIGNA and DESIGNB. The third 
program accompanying this article is 
shared by both DESIGNA and DESIGNB, and 
needs to be included with each. To avoid 
typing this part twice you can merge it 
with both parts, either by using the merge 
utility found elsewhere in this issue, or 
by proceeding as follows. Type in this 
shared program, and save it away. Then 
make a spooled copy of it by typing: 

*SPOOL SPOOLED 

LIST 

* SPOOL 
Now to append this spooled file to each of 
the other two parts, simply load in 
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DESIGNA, and type: 

*EXEC SPOOLED 
You now have a merged version of DESIGNA 
containing the shared lines. Save this 
away under the name DESIGNA, and repeat 
the process with DESIGNB. 


Even with the programs split in this 
way however, PAGE must be set to &1300 or 
below on a machine without shadow memory 
(i.e. type PAGE=&13ØØ before loading the 
programs). To run the pair of programs, 
simply CHAIN the first, i.e. type: 

CHAIN "DESIGNA" 


USING THE PAGE DESIGNER 

The program DESIGNA is concerned with 
the creation of new print formats, as we 
will call them. A format consists of a 
graphics window (unfilled) accompanied by 
text either to the right, left or on both 
Sides of it. The window is not filled with 
a cropped screen dump until the printout 
Stage. In making up a page of text one 
would first create a number of formats, 
and then combine them together at printout 
stage to make a complete page. 
Alternatively a single shallow format 
could be used to produce an embellished 
letterhead for example. 


When DESIGNA is run it offers three 
menu options: 

1. Load/View format 

2. Create new format 

3. Print 
The first two options are fairly 
self-explanatory, with option 1 allowing 


star commands. Option 3 simply calls 
DESIGNB to initiate the screen selection 
and printing process. 


Option 2 provides you with a fresh 
mode Ø design screen, representing the 
printer paper, so that what you format on 


this screen will be what you get on the 
printout. If you select 2, you must first 
use the cursor keys and space bar (as in 
FLEXIDUMP) to define the required graphics 
window. The scales at the top and bottom 
of the design area correspond to the 
eighty text columns available, and the 
maximum window size approximately equates 
to that of a full size mode 4 dump. Once 
the lower left hand corner of the window 
has been marked with the space bar, a new 
Scale will appear representing the text 
co-ordinates of the mode 4 graphics area. 
This is to assist you in determining the 
Size of the window. 
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Once the window has been defined, text 
may be entered, with Return taking you to 
the next line (or the next part of the 
line, if text is split across a window). 
Lines may be drawn using the underline 
character, but beware of leading and 
trailing spaces in the text: these are 
treated as valid text characters during 
subsequent justification. Once the cursor 
reaches the bottom of the design area, you 


may edit any line, after which you are 
asked to select left, right or central 
justification. The format should then be 


Saved away. If you reply in the negative 
to the 'save' prompt the format will be 
cleared. 


PAGE MAKE-UP 

When the menu returns, selecting 
option 3 initiates the printout process, 
chaining DESIGNB. For each segment of text 
and graphics, you are asked to supply the 
filename of a previously saved format. 
Again star commands may be used, and *CAT 
will be particularly useful here. Next you 
must select a font style. As the program 
stands, you are offered Emphasized, 
Italics or NLQ, but if your printer does 
not have an NLQ facility, you could 
substitute some other font for this by 
replacing its code in PROCon and  PROCoff 
in DESIGNB. 


Once the font has been selected you 
are asked for the filename of a suitable 
mode 4 screen. This is loaded in and 


displayed, and a window the size of that 
defined in the format you have loaded will 
be  overlaid. Use the cursor keys to 
position it, with Shift speeding up 
movement, and the space bar to freeze the 
position. Once the graphics window has 
been defined, you are offered the option 
of a boxed or unboxed window, and then 
printout commences. If you require more 
than a single segment of text and 
graphics, you may then select another 
format, and repeat the process until a 
page has been built up. 


While experimenting with the Page 
Designer, you will probably think of all 
sorts of uses for it, like printing 
letterheads, cards, newsletters, or simply 
just to decorate your letters. Perhaps you 
may like to enhance the program's features 
by adding full justification, improving 
the text editing facilities, accommodating 
Screens in other graphics modes and so on. 
It is also hoped that this short series 
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may have given you ideas for writing other 
printer applications. 


TECHNICAL NOTES 

From discussions last month you may 
recall that for normal printing on Epson 
printers, lines of text are 12 dots 
apart, but that in the graphics mode, 
each scan is only 8 dots high. We get 
around this by printing a line of text 
and graphics in sequence, then issuing a 
linefeed of 8/72 ins (equivalent to 4 
dots in height), and then printing the 
next line of graphics only, with a height 
of 4 dots. 


DESIGNB contains an 


The program 
integral mode 4 windowed screen dump with 
a different scaling to that of FLEXIDUMP 
featured last month. The present dump has 


a built-in reduction effect, giving a 
relatively high definition picture, 
appropriate to the size of a printed 
page. It uses a printer grid of 640x256 
dots to represent the 1280x1024 mode 4 
Screen. A full mode 4 screen would thus 
occupy exactly 2/3 of the width of the 
printer paper. 


1Ø REM Program DESIGNA 

20 REM Version B 0.36 

30 REM Author Alex Kang 

40 REM Beebug November 1986 

50 REM Program subject to copyright 


100 ON ERROR GOTO 5410 

110 IF PAGE>&13ØØ THEN MODE 7:PRINTTAB 
(5,19) "Please reload program with PAGE": 
PRINTTAB (5,12) "set to &13ØØ": END 

120 MODEØ:xs%=16:ys%=32 

13Ø DIM T$(2,21),S$(2) ,name 25 

140 n$="123":y$=" (Y/N)? ":ysS-"YyNn" 
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150 VDU19,0,7;0;:VDU19,1,9;0; 
160 REPEAT 
170 REPEAT 
180 q$="MENU":PROCwin: PRINT '"1. Load/V 
iew format"'"2. Create new format"'"3. P 
rint"''"CHOICE (1-3): ";:REPEAT:AS-GETS: 
UNTILINSTR (n$,A$) : PRINTAS:CC%=VAL (AS) 
190 PROCdlay (28) : VDU26: IF CC$-1:PROCld 
f:PROCdisf 
200 UNTIL CC%>1 
210 IF CC$-3:CHAIN "DESIGNB" 
220 CLS:PROCdga: PROCcalc 
230 *FX15,1 
240 PROCtext:PROCedit 
250 J%=FNqa ("JUSTIFICATION (1-3) :"+CHR 
$1Ø+CHR$13+"1) Left 2) Centre 3) Right 
:",n$):PROCjt:IF FNqa("Save format"+y$, 
ysS)=TRUE THEN PROCsvf ELSE VDU26,12 
260 UNTIL Ø 
270 : 
1000 DEFFNqa (q$,p$) 
1019 PROCwin:REPEAT:AS-GETS:UNTILINSTR( 
pS,AS) >Ø: PRINTAS: VDU26 
1020 IF AS="Y" OR AS="y":=TRUE 
1030 IF AS="N" OR AS="n":=FALSE 
1040 =VAL (AS) 
1059 : 
19060 DEFPROCwin:VDU28,3,31,79,25,12:PRI 
NTq$ ; : ENDPROC 
10970 : 
1080 DEFFNip (N%) 
1098 J%=0:qS="": REPEAT 
1100 A%=GET:IF J$-0 AND A%=127 VDU7:GOT 
01100 
1110 IF A$-127 J$-J$-1:PRINTCHRSA$; :q$- 
LEFTS (q$,J$) 
1120 IF J%<N% AND A%<>13 AND A%<>127 q$ 
=Q$+CHRSA%: J$-J$4] : PRINTCHRSA$ ; 
1130 IF J%=N% AND A%<>13 VDU7 
1140 UNTILA%=13 
1150 =q$ 
1169 : 
1170 DEFPROCdga 
1180 PROCrul:PROCt("Use cursor keys and 
«SPACE» to mark left limit of graphics 
area.") :X$-216:Y$-320 
1198 REPEAT: PROCmove (0, 1248 , 320, 320) 
1200 PROCbox(X%,Y%,X%+847,Y%+671,6) : PRO 
Cbox (X% ,Y3,X3+847,Y%+671 ,6) 
1210 UNTILsp%: VDU7: PROCdlay (20) : *FX15,1 
1220 P%=X%:X%=X%+847:Q0%=Y%:Y%=Y%+671 
1230 PROCt("Use cursor keys and «SPACE» 
to mark top right corner of graphics ar 
ea.") : PROCvrul: REPEAT: PROCmove (P%+31,P%+ 
847,0$*31 ,0$*671) : PROCbox (P%,0%,X%,Y%,6) 
: PROCbox (P$,02$,,X2 , Y$,6) 
1240 UNTILSp$:VDU7:PROCvrul:PROCbox (P2, 
Q$,X$,Y$,6):IF X%>1279 X%=1279 
1250 U%=X%:V%=Y% 
1260 ENDPROC 
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1270 : 

1288 DEFPROCcalc 

1290 B%=P%/16:E%=8Ø-(U%+1)/16:D%=6* ( (US 
-P$*1)/16) :H3=12* ( (V%-Q3+1) /32) : T$-H2/12 
:EL$-(1023-V$)DIV32:S$ (1) =STRINGS (B2," " 
):S$(2) =STRINGS (E%," "):ENDPROC 

1300 : 

1310 DEFPROCvrul 

1320 VDU5:GCOL3, 1: MOVEP$ , 320: DRAW] 279,3 
20:i$-P$:c$-0:REPEAT:c$-c$41:1$-12464:MO 
VEi$-8,332:PRINT; 4" : MOVEi 2-8 , 360: PRINT; 
C$*3-l:UNTILi$5-1279 OR c$*3-1-38 

1330 VDU5:GCOL3, | : MOVEP$ , 320: DRAWPS , 960 
:FORi%=1T01Ø:MOVEP%, 32Ø+i%*64: PRINT"-=";i 
3* 3: NEXT: VDU4 : ENDPROC 

134Ø : 

1350 DEFPROCrul:q$z"*....:.... ': PRINTTA 
B(0,0) STRINGS (8,q$) ; TAB (0,23) STRINGS (8,q 
$) :FORi$-1TO7:PRINTTAB (i%*1Ø-1,24) ;i2*10 
: NEXT: ENDPROC 

1360 : 

1370 DEFPROCtext 

1380 PROCt("Type text lines now."):FORi 
$-0TOT$-1:IF B$<>Ø VDU31,0,EL%+i%:TS(1,i 
$) =FNem (FNip (B%) ,B%) 

1390 IF E%<>Ø VDU31,8Ø-E%,EL%+i%:TS(2,i 
$) =FNem (FNip (E%) ,E%) 

14ØØ NEXT: ENDPROC 

1410 : 

1420 DEFPROCjt:FORi$-0TOT$-1:IF B$-0 GO 
TO145Ø 

1430 IF J$-2 THEN TS(1,i%)=FNcn(TS(1,i% 
),B$) ELSE T$(1,1%)=FN1rj (T$ (1,1%) ,B%) 

1440 PRINTTAB(Ø,EL%+1%) ; T$ (1,i2) 

1450 IF E$-0 GOTO148Ø 

1460 IF J$-2 THEN T$(2,i$)-FNcn(T$(2,i$ 
),E$) ELSE T$(2,i$)-FNlrj(T$(2,i£),E$) 

1470 PRINTTAB (80-E$ , EL$*1$) ; T$ (2,12) 

1480 NEXT: ENDPROC 

1490 : 

1500 DEFFNcn (q$,2$) :LOCAL s%,s1% 

1518 IF (Z$-LENq$)«2:-qS$ 

1520 s%=(Z%-LENGS)DIV2:51%= (Z$-LENq$) MO 
D2:IF s1%=Ø:=STRINGS(s%," ")+q$+STRINGS ( 
s$," my 

1530 =STRINGS (s$,CHR$32) +q$+STRINGS (s3+ 
1,CHR$32) 

1540 : 

1550 DEFFNlrj (q$,2%) 

1560 IF LENq$-Z$:-q$ 

1570 IF J%=1|:=q$+STRINGS(Z%-LENGS," ") 

1580 IF J$-3:-STRINGS(Z$-LENq$," ")4q$ 

1590 : 

1600 DEFPROCedit 

1618 IF FNqa("Edit text"+y$,ys$)=FALSE: 
ENDPROC 

1620 i$-0:ty$--(80—E$)*(B$-0) : PROCt ("Se 
lect line using cursor keys and spacebar 
"):REPEAT:IF INKEY-58 AND i$2»50:i$-i2-1 

1630 IF INKEY-42 AND i%<T%-1:i%=i%+1 
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1640 IF INKEY-122 AND E%>Ø ty$-80-E$ 
1650 IF INKEY-26 AND B%>Ø ty$-0 

1660 VDU31,ty%,EL%+i%: PROCdlay (10) : *FX] 
5,1 

1670 UNTILINKEY-99:VDU7:*FX15,1 

1680 PROCt("Type in correct text"):VDU3 
1,ty3,EL3+i$:LL3=2+1* (ty$-0) :ip$--B$* (LL 
3=1) -E%* (LL$=2) : T$ (LL$, 1$) =FNip (ip%) : IF 
FNga ("Edit again"+y$,ys$)=TRUE GOTO162Ø 
1690 ENDPROC 

1700 : 

1710 DEFPROCsvf 

1720 q$="Save format filename: ":PROCwi 
n:INPUT p$:VDU26:C$-OPENUPp$:IF C$»0 VDU 
7:PROCt ("File exists!") : PROCdlay (50) :CLO 
SE#C3:IF FNqa("Overwrite file"+y$,ys$)=F 
ALSE GOTOl720 

1730 C$-OPENOUTp$:PRINT4C$,D$,H$,T$,B$, 
E3:FORi%=1T02: PRINT#C%, S$ (1%) : NEXT: FORi % 
-(TOT$-1:PRINT4C$,T$(1,i$),T$ (2,1%) : NEXT 
:CLOSE#C%: PROCt ("Format saved."):PROCdla 
y (5Ø) : ENDPROC 

1740 : 

1750 DEFPROCdisf:PROCrul 

1760 V%=319+(32*H%/12) : EL$- (1923-V$) DIV 
32: PROCbox (B$*16,320,16* (8Ø-E%) -1,V$,5) : 
FORi$-0TOT$-1:IF B%<>Ø:VDU31,Ø,EL$+i$:PR 
INTTS (1,i%) 

1770 IF E%<>Ø:VDU31,8Ø-E%,EL%+i%: PRINTT 
$(2,1%) 

1780 NEXT: ENDPROC 

1790 : 

1800 DEFFNem(p$,A2):1F p$="" THEN =STRI 
NGS (A3," ") 

1810 -p$ 


10 REM Program DESIGNB 

20 REM Version B 0.35 

30 REM Author Alex Kang 

40 REM Beebug November 1986 

50 REM Program subject to copyright 


100 ON ERROR GOTO 5410 

110 MODE4 

120 VDU19,0,7;0; :VDU19,1,0;0; 

130 PROCass:xs$-4:ys$-4:q$-"" 

140 DIM T$(2,21),8$(2) ,name 25 

150 PROCldf:F$-FNfont:PROCldp:VDU23,1, 
Ø; Ø; Ø; Ø; : PROCCrop: PROCparms: PROCpr int :m% 
=FNmenu 

160 IF m$-1 THEN CLEAR:GOTO 130 

170 IF m%=2:CHAIN"DESIGNA" 

180 END 

190 : 

1000 DEFFNmenu:VDU26, 12: PRINTTAB (3,25) " 
MENU" "TAB (3) "1. Load format" 'TAB(3)"2. C 
reate format" ''TAB(3)"3. Quit"'':-FNcho 

1019 : 

19020 DEFPROCwin:VDU28,3,31,39,25,12:PRI 
NTq$ ; : ENDPROC 
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1930 : ; 

1040 DEFFNfont:q$-" FONTS":PROCwin:PRIN 
TTAB (8) "1. Emphasized" 'TAB(8)"2. Italics 
""TAB(8) "3. NLQ"':-FNcho 

1950 : 

1060 DEFFNcho:PRINTTAB(6)"CHOICE (1-3): 

" ; : REPEATAS=GETS: UNTILINSTR ("123" , A2) >Ø 
: PRINTAS: VDU26, 1 2: -VAL (AS) 

19070 : 

1080 DEFPROCcrop 

1090 X%=Ø:Y%=Ø:S$(Ø)="Position box. «SP 
ACE» to print.":PROCps: REPEAT 

1108 PROCmove(0,1280-D$*4,0,1024-H$*4) 

1118 P%=X%+D%*4:0%=Y%+H3*4 

1128 PROCbox (X%,Y%+2Ø,P%-1,0%,6) 

1138 PROCbox(X%,Y%+2Ø,P%-1,0%,6) 

1140 UNTILsp$:VDU7: PROCps: *FX15,1 

1150 IF FNyn("Do you want border") =TRUE 
:GCOL@, 1: PROCbox (X%,Y%+2Ø,P%-1,0%,5) 

1160 ENDPROC 

1170 : 

1180 DEFPROCparms 

1198 D%=D%*2:U%=D%M0D256:V%=D%DIV256 

1200 ?&76=P%M0D256:?&77=P%DIV256 

1210 ?&70-X$MOD256: ?&712X$DIV256 

1220 ?&78=Q%M0D256: ?&79-Q$DIV256 

1230 ENDPROC 

1240 : 

1250 DEFFNyn (q$) :S$(@)=qS+"? (Y/N):":PR 
OCps: REPEAT: AS-GET$: UNTILINSTR ("YyNn" ,AS 
) >Ø:PROCps:IF AS="Y" OR A$="y":=TRUE 

1260 =FALSE 

1270 : 

128Ø DEFPROCass 

1290 dump=&AØØ:FORpass=ØT02 STEP2 

13090 P%=dump: [OPT pass 

1310 .linedump LDA&78:STA&72:LDA&79: STA 
&73:LDA40: STA&80: LDA£128: STA&81 : . readpix 

LDX#&70: LDY#0:LDA#9:JSR &FFFl:LDA&74:BE 
Q next:LDA&8Ø:CLC:ADC&81:STA&8Ø: .next CL 
C:LSR&81:BCSpr inter : LDA& 72: SEC: SBC#4: STA 
&72:LDA&73: SBC#0: STA& 73: JMPreadpix 

1320 .printer LDA&75:BEQprint:LDA&8Ø:AN 
DH24Ø:STA&8Ø: „print LDA41:JSR&FFEE:LDA&8 
Ø: JSR&FFEE: LDA# 1 : JSR&FFEE: LDA&80: JSR&FFE 
E:.nextbyte LDA&7Ø:CLC:ADCt4:STA&7Ø:LDA& 
71 :ADCHØ:STA&71 : LDA&7Ø:CMP&76:BCC1 inedum 
p:LDA&71:CMP&77:BCClinedump: RTS 

1330 ] : NEXT: ENDPROC 

1340 : 

1350 REM Use your printer's own codes 

1360 REM here. Omit F%=3 if no NLQ. 

1370 DEFPROCfon:VDUI ,27,1 

1380 IF F$-1 VDU69 

1398 IF F$-2 VDU69,1,27,1,52 

1400 IF F%=3 VDU12Ø,1,1 

1410 ENDPROC 

1420 : 

1430 DEFPROCfoff:VDU1,27,1 

1440 IF F$-1 VDU7Ø 


Beebug November 1986 


1450 IF F$-2 VDU70,1,27,1,53 

1460 IF F3=3 VDU12Ø,1,Ø 

1478 VDU1,27,1,65,1,12,1,13,3: ENDPROC 

1480 : 

1490 DEFPROCtx (R$) : PROCfon 

1500 IF (R$-1 OR R%=3) AND B$-0:ENDPROC 

1510 IF (R$-2 OR R%=4) AND E$=Ø:ENDPROC 

1520 *FX3,1Ø 

1530 IF (R$-1 OR R$-2):PROClin 

1540 IF (R$-3 OR R%=4) PRINTSS(R%-2); 

1550 *FX3,0 

1560 ENDPROC 

1570 : 

1580 DEFPROClin 

1598 A%=-B%*(R%=1)-E%* (R$=2) :IF TS$(R$,G 
$) OSTRINGS$(A$," ") THEN PRINTTS(R%,G%); 
: ENDPROC 

1600 *FX3,0 

1618 VDU1,27,1,45,1,1:pS-STRINGS(A$," " 
):*FX3,10 

1620 PRINTp$;:*FX3,0 

1630 VDU1,27,1,45,1,0: ENDPROC 

1640 : 

1650 DEFPROCdraw:VDU1,27,1,76,1,U%,1,V% 
:CALL dump 

1660 ENDPROC 

1670 : 

1680 DEFPROCIf (Z$) :Q$-0$-2Z2*4 

1698 ?&78-0$MOD256:?&79-0$DIV256 

1700 ?&70-X$MOD256: ?&71-X$DIV256 

1718 VDU1,27,1,65,1,Z2%, 1,13: ENDPROC 

1720 : 

1730 DEFPROCprint 

1740 VDU2:FOR G%=ØTOT%-1 

1750 PROCtx(1):?&7520:PROCdraw: PROCtx (2 
):PROCIf(8):1F G%<>T%-1 PROCtx (3) :?&75=1 
: PROCdraw: PROCtx (4) : PROCIf (4) 

1760 NEXT:PROCfoff:VDU23,1,0;0;0;0;:IF 
FNyn ("Print again") =TRUE:D%=D%/2: PROCcro 
p: PROCparms: GOTO1 740 

1770 ENDPROC 

1780 : 

1798 DEFPROCldp 

1800 REPEAT:qS$-"Picture filename (or st 
ar cmd): ":PROCwin:INPUT p$ 

1810 IF LEFTS(pS,1)="*" THEN PROCstar E 
LSEC$-OPENUPp$:1F C$-0 VDU7:PROCt ("No su 
ch file!") : PROCdlay (50) 

1820 UNTIL C%<>Ø AND LEFTS(pS,1)<>"*" 

1830 CLOSE#C%$:Sname="*LO. "+pS+" 5800": 
PROCosc1 i : ENDPROC 

1840 : 

1850 DEFPROCps: VDU5:GCOL3, 1 : MOVE64 , 96: P 
RINTSS (Ø) ; : VDU4: ENDPROC 
————  ! 

5000 REM SHARED LINES Ver 0.2 

5010 : 

5020 DEFPROCt (q$) : PROCwin: VDU26 : ENDPROC 

5030 : 

5040 DEFPROCbox (K$,L2,M$,N£,0£) :*FX19 


Beebug November 1986 


5050 MOVEK%,L%: PLOTO% ,M% , L%: PLOTO ,M%,N 
3%: PLOTO%,K%,N%: PLOTO% , K% , L%: ENDPROC 


5070 DEFPROCAlay (S$) 
5080 TIME=Ø:REPEATUNTILTIME>S%:ENDPROC 


5109 DEFPROCmove (K%,L%,M%,N%) 

5110 LOCAL s%,s1%:s%=xs%+ (-—32* INKEY-1) 
5120 s1%=ys%+(-32*INKEY-1) 

5130 X%=X%+s%*(INKEY-26-INKEY-122) 
5140 Y%=Y%+s1%* (INKEY-42-INKEY-58) 
5150 sp%=INKEY-99 
5160 IF X%<K% X= 
5170 IF X%>L% X$- 


oe o9 oe oo 


5190 IF Y%>N% Y$- 
5200 ENDPROC 


5220 DEFPROCoscli:LOCAL X$,Y$ 

5230 X%=name MOD256:Y%=name DIV256 

5240 CALL &FFF7 

5250 ENDPROC 

5260 : 

5270 DEFPROCldf 

5280 REPEAT:q$-"Load format filename (o 
r star cmd):  ":PROCwin:INPUT p$ 

529Ø IF LEFTS(p$,1)="*" THEN PROCstar E 
LSE C%=OPENUPpS:IF C$-0 VDU7:PROCt ("No s 
uch file!"):PROCdlay (59) :CLOSE#C% 

5300 UNTIL C%<>Ø AND LEFTS(pS,1)<>"*" 
5310 INPUTHC%,D%,H%,T%,B%,E% 

5320 FORi%=1TO2: INPUT#C%,SS (1%) : NEXT 
5330 FORi%=ØTOT%-1:INPUTHC%,TS(1,i%) ,TS 
(2,1%) :NEXT: CLOSE#C% 

5340 PROCt ("Format loaded.") : PROCdlay (5 
Ø) : ENDPROC 

5350 : 

5360 DEF PROCstar 

5370 VDU26:CLS: $name-p$: PROCoscli 

5380 PRINT'"Press spacebar to continue" 
r 

5390 IF GET CLS:ENDPROC 

5400 : 

5410 ON ERROR OFF 

5420 MODE7 

5430 REPORT:PRINT" at line ";ERL 

5440 *FX3,0 

5450 END 
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Pursuing the Trivial 


Title : Trivial Pursuit 

Supplier : Domark 

Price : £14.95 (includes two tapes) 
Rating . kkk 


Reviewer : Sarah Williams 


After the huge success of the board 
game "Trivial Pursuit", it was perhaps 
inevitable that a computer version would 
eventually appear. Domark is the company 
concerned and they are already claiming 
enormous interest in the computer version. 


First impressions of the game were 
coloured by the fact that the instructions 
were neither informative nor clear. 
Indeed, it took quite some time to get the 
game started. Once the game is underway 
you are introduced to the character of 
T.P. who guides you through the quiz and 
acts as a referee. 


Unlike many computer games, where you 
play against the computer, you have the 
option of playing against as many as five 
opponents. Of course, if you wish, you can 
just practice in 'single-player' mode. As 
in the original board game, those playing 
take it in turns to answer questions on a 
variety of subjects. In the computer 
version, unlike the board game, these 
questions include both visual picture 
questions and audible music questions. 


When you are ready to begin playing, 
T.P. randomly throws a dart at a number 
from one to six. This is a substitute for 
the old fashioned die. Your choice of 
squares to move to is then highlighted on 
the screen. When you have decided on your 
chosen subject the screen changes and you 
find yourself in T.P.'s study. Depending 
upon the question category selected, the 
study is decorated appropriately. When a 
graphical question arises the lights dim 
and a screen rolls down from the ceiling 
ready for the projected image. Musical 
questions are heralded by T.P walking over 
to the tape recorder. 


Once you have worked out your response 


you press the space bar and the correct 
answer is displayed on the screen. It is 
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then up to you and your opponents to 
decide whether you were correct or not. 
One feature you will either love or hate 
is the way T.P. paces impatiently up and 
down, audibly tapping his feet, as he 
waits for your answer. 


The graphics of the game, to my mind, 
could have been better in places. The 
board itself on a colour monitor was clear 
enough, but on a monochrome monitor it was 
difficult to determine which 'colour' 
belonged to which subject category. 


The display gives an adequate repres- 
entation of the game most of the time, but 
on any visual questions the pictures are 
quite small with little detail, and in 
Several cases unrecognisable in my view. 


Overall, if I was to compare it to the 
original board game, I would have to 


favour the latter. The computer version 
Seems to introduce too many unwanted 
complications that detract from the 


spontaneity and enjoyment of the original. 
The continual change of scene from the 
game board to the study and back to the 
board also becomes a little tedious after 
a while. The only advantage of the 
computer version is the opportunity to 
include musical questions. 


Despite many  irritations in the 
playing of the computer version of Trivial 
Pursuit, the name alone is probably 
sufficient to ensure that Domark will have 


Beebug November 1986 


o GAMES REVIEWS * GAMES REVIEWS * GAMES REVIEWS ¢ GAMES REVIEW: 
GAMES REVIEWS * GAMES REVIEWS ¢ GAMES REVIEWS ¢ GAMES REVIEWS 


a runaway success this coming Christmas. 
But in my view, the original board game 
will provide far more enjoyment for the 
majority of players. 


Psycastria 


Title : Psycastria 
Supplier : Audiogenic 
Price : £7.95 

Rating idet ae 
Reviewer : Daniel Gaster 


"Superfast smooth scrolling shoot-'em- 
up action", states the blurb on the 
packet. Psycastria is one the fastest, 
most difficult and addictive games to be 
released for the Beeb. 


000000000 Z 


bee 


The idea of the game is to fly above 
the surface of four different 'install- 
ations' (on land, sea, the moon and in 
Space) destroying energy pods. The screen 
windows a section of the current level, 
which scrolls smoothly from side to side. 
You control a spaceship that can .travel 


left, right, up and down. Some buildings 
rise above the surface and so must be 
avoided; other obstacles such as fighter 


planes can be destroyed for extra points. 
The best part of Psycastria is the 
graphics which, despite being shown on a 
rather small screen, are colourful and 
detailed. 
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The presentation, sound effects and 
playability are all excellent. My main 
complaint is that Audiogenic say that the 


game (tape version anyway) will not load 
with Replay fitted. Overall this is a 
top-class game. Very addictive and 
challenging and worth buying even if 


you're not a shoot-'em-up fan. 


Galaforce 
Title : Galaforce 
Supplier : Superior Software 
Price : £9.95 Tape 

: £11.95 Disc 
Rating Akk 


Reviewer : Daniel Gaster 


Galaforce is a fast-moving, colourful, 
all-action game in the Zalaga mould. You 
can move your spaceship in eight direct- 
ions and the inevitable fire button can be 


held down for maximum blast power. The 
idea of the game may seem hauntingly 
familiar but this is no boring, run-of- 


the-mill game. There are seemingly endless 
streams of attacking aliens. 


The game is divided into Zones, each 
Zone consisting of several waves of 
nasties, swooping down in complicated 
formations. Some require as many as ten 
hits to kill them. At later stages the 
aliens drop a deadly assortment of bombs. 
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MASTERFI LE | | — General purpose database 


Combines with Wordwise/View to 
produce Standard Letters etc. BEEBUG MASTERFILE II 


MASTERFILE is a general purpose file 
management package allowing large 
amounts of information to be stored 
and processed. It is extremely powerful 
yet flexible and easy to use. Once set 
up, the information may be retrieved, 
sorted on any field, displayed, 
updated, printed etc. as required. 


Set up file name 

Enter record description 
Look atvalter a record 
Printer configure 

Open file 
Initialise-Clear file 
Enter search data 
Print^Search file 

Sort 

Transfer^append files 
Compact the file 

Global field calculation, 
Activate'TAG' file 
Utilities 

Form design 

Stop the program 

PTION? . 


OVOZArXL-ITOTIMONOBGD 


Separate versions of the program are 
available for cassette and disc users, 

the disc version using random access 
files and offering many extra features. 


MASTERFILE II FACILITIES 


Extremely fast “tag” sorting on virtually any combination of fields. 
Any number of tag files may be associated with your data file. 


Flexible print layouts allowing additional text to be combined with the 
output to produce standard letters etc. 


Output from MASTERFILE Il may be spooled directly to a file for later use 
with WORDWISE or VIEW. 


Flexible data entry. 


Fields may be defined as numeric, string, decimal or date and up to 
955 characters in length. 


Spreadsheet type facilities allowing global changes to be made on 
string, numeric and decimal fields. 


Sub-files may be created from selected fields and records, from the 
master file, according to most criteria. 


Extra utilities to delete a field throughout a file, copy file descriptors and 
change dates. 


ORDERING INFORMATION 
Mem 


Price Price 


Masterfile II £99.00 £16.50 
ADFS Masterfile II £99.00 £16.50 
Upgrade M.file Il to ADFS M.file II £7.00 £5.00 
Upgrade M.file | (Disc) to M.file II £12.50 £9.35 
Upgrade M.file I (Disc) to ADFS M.file II £19.50 £9.35 


Please specify 40 or 80 tracks and standard or ADFS format. 


ROMIT — Put your own basic programs into Rom 


€ Create Your Own Silicon Disc —Ó—1 

€ Uses Sideways or Normal Ram oL 

€ A Complete Filing System 
with up to 16K capacity 
(per bank of Ram) 


X*XREXEC XPRINT 


>*RAM 
>* INFO 


NY. PROGRAM L FF1900 FF8023 1CDE 806C 
ROMIT adds a new feature to 05500 905000 Sore 
your BBC Micro — A Ram Filing Mi Mv RR gr 
System. This provides over 20 new pode ee n hog e 
commands which enable you to: >KDOWNLOAD 


Ready to blow ROM data at &1900 


Create a silicon disc with its own filing system commands. 

Type *RAM, then you can catalogue the ‘disc’, save and load 
files to it, storing as many files as memory will allow. *DISC (or * TAPE) 
takes you back to your normal filing system. 


PJ: your own Basic or assembler programs (or any files into Ram 
and then make them into Eproms. Whether it's your favourite 
game, your function key definitions or any program that you use 
frequently, you can now put it into Eprom so that it's always instantly 
available. Multiple copies can also be produced to enable you to 
pass on your programs to other people. 


Getting your own Basic program into Rom couldn't be simpler. 
Just load your program into memory and type: 


*RAM x*FILE ‘prog’ *BLOCK 


and either connect it to a blower, or send the disc (or tape) to us, 
together with your Romit registration number, and we will Rom it for 
you. (There is a small charge for this service). 


Use your sideways Ram as a printer buffer so that you can 
continue to use your computer for other work at the same time 
as printing long documents. 


OVER 20 NEW Xx COMMANDS ARE PROVIDED BY ROMIT 
An Eprom Blowing Service is offered with this pack. 


To get the most from Romit you will need sideways Ram fitted to your 
computer, eg just a single Ram chip plugged into your ATPL (or other) 
Rom board. 


Vai Mera 
BEEBUG 


For advertising details, please contact: 


Lynn Lloyd Yolanda Turuelo 
on Or on 


(0923) 677222 (0727) 40303 


or Write to: 
Dolphin Place 
Holywell Hill 
St. Albans 
Herts AL1 1EX 


he entire Mirrorsoft range of quality software is available by CREATIVE COMPUTING 
mail order direct from our warehouse. with no extra charge Fleet Street Editor £39.95 (disk only) 
for postage and packing (UK only). All programs run on BBC Admin Xtra £14.95 (disk only) 
B/B+ and Electron. Please enquire about Master-compatible Fonts 'n' Graphics £14.95 (disk only) 
versions Walt Disney Graphics £14. 95 (disk only) 
Prices given are for tape versions. Please add £3 for 5.25" A 
disks. Please state whether 40 or 80 track required GAMES 96.95 
We accept cheques, postal orders. Access. VISA, and e gelo dax £6.95 
American Express. Please allow 28 days for delivery. Strike Force Harrier £995 ' 
Send for our free colour catalogue, too! - ——————— - 
EARLY LEARNING/CHILDREN'S ENTERTAINMENT HOME DISCOVERY _ VM 
Caesar's Travels £12.95(disk only) Ages 3-9 M " i 
Sol re BBC Mastermind Quizmaster £5.95 
Count with Oliver £7.95 Ages 4-7 
e Å Joffe Plan £9.95 
Crack It! Towers £9.95 Age 74 k 

; : s Know Your Own Psi Q £9.95 
First Steps with the Mr Men £8.95 Ages 3-6 : 

É ee Know Your Own Personality £9.95 
Giddy Game Show £9.95 Ages 3-6 TEE £9 95 
Here & There with the Mr Men £7.95 Ages 4-7 j 
Look Sharp! £7.95 Ages 5-11 
Mr Men Magic Storymaker £9.95 Ages 4-7 MIRRORSOFT 
Quick Thinking: £6.95 Ages 5-11 Dept BB, 

Quick Thinking Plus! £6.95 Ages 5-11 FREEPOST BS4382, 
Word Games with the Mr Men £9.95 Ages 5-6 Paulton, Bristol BS18 5BR (No stamp needed) 


BEEBUG 30 SUPPLEMENT 


DISCMASTER — Utilities for the disc user 


Eleven powerful utilities to 
support the disc user, with 
routines to help with just about 
everything you'll want to do 
while using your disc drive. 


All programs are called from a 
main menu and are explained in 
detail in the comprehensive 
manual. 


Members Price £15.75 


€ Disc editor/String search 
A string search routine 
combined with a full screen 
editor, simply overtype on the 
Screen (in hex or ascii) to 
update the disc. 

€ Recover 
Recovers programs lost by 
accidental deletion or disc 
corruption. 


e Movedown 


The command *RUN will load, 
move down and run your long 


programs automatically, if you 
add this routine to them. 

e Disc menu 
A colourful automatic menu 
to add to each of your discs, 
which will move down and 


RUN Basic programs, and *RUN 


machine code programs. 

e Indexer 
Creates an information index 
file for all of your discs, which 
may then be displayed, 


updated or printed to help you 


keep track of your programs. 
e Copier å 

Transfer a whole cassette 

of programs onto disc 

automatically. (Will not copy 

protected cassettes.) 


from BEEBUGSOFT 


Disc Sector Search/Edit 
Examine and 


ndexer 
Tape to Disc Transter 
Link Utility 


40/80 Track Expander 
Dual paratoy Utility 
Disc Formatter 


A utility to automatically call 
and insert useful routines from 
your own library into your 
development programs. 
€ Overlay 
Enables procedures or 
functions to be loaded from 
disc and overlaid into your 
program as it runs, allowing 
you to run programs much 
larger than available memory. 
€ 40 to 80 
Insert your 40 track disc, 
3 minutes later remove the 
disc which is now in 80 track 
format and still has all of your 
programs on it. 
e Dual catalogue 
Enables ól files to be saved per 
disc surface instead of just 31. 
e Format 
A speedy program to format 
or verify 40 and 80 track discs. 


‘A godsend fo disc users" 
EDUCATIONAL COMPUTING 


“Some very 
Interesting facilities” 
PERSONAL COMPUTER NEWS 
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CO 
MING SOON FROM BEEBUGSOFT 


such as KCALL, 
can now Write 


KAN N 
their own powe easily 
without resortin [ de. 
i ows Y enter the name, 
call at a later . 


e Telephone directory 
modem configura 


ememboer ele 
tead of the number €.3- 
eatures include an auto-answer facility, 

xt frame editor with help facility, 4 real time 


more! 
Enhanced Telephone Directory and Utility 


me Ins 


rd Softw’ 


Bulletin Boa 
oming Soo 


programs C 


FURTHER DETA 
I 
NEXT pr 


Problems? try R-SOFT utilities! 
1. HOW-TO: An essential collection of 
software and instructions for frustrated 
new disc owners who want to move their 
programs to disc. 

3. ROMPULL + TAPEDUMP. 

4. AUTOMATIC DISC MENU: Includes 
sideways-RAM version, can boot from ROM, 
works with 2nd 6592. 

6. SWROM*: Puts your Basic / machine 
code programs in ROM format. 

7. RFS-GENERATOR: Generates ROMs for the 
*ROM filing system. This does not use 
the DFS workspace and is an ideal tool 
to run nasty programs from disc. 

All above packages £5.00 each. 

13. D-MASTER-V2: Superb disc backup 
program; needs 8271 and sideways RAM; 
£8.00; on 16K EPROM £12.00. Upgrade for 
D-MASTER owners: £5.00/£9.00. 

16. OPUS SD/DD/Challenger: Disc menu, 
disc editor, disc indexer, etc. Please 
enquire for further details. 

17. D-EDITOR: based on D-MASTER-V2: will 
edit any disc D-MASTER-V2 can backup! 
£8.00/£12.00. 

Please send SAE for full list. 

R-SOFT, 22 Marriotts Close, Felmersham, 
Bedford MK43 7HD. Tel: (0234) 781730. 


Classified Ads 


Disc drive, half-height, D/S D/D 490/80 
track switchable. New and guaranteed. 
Uncased. £75. Cased with PSU £95. 
Tel: (06845) 68676 evenings. 


CONVERT your  80T drive to 40/80 
switchable. MkII unit (cased) simply 
plugs in - £19. MkI kit as above but 
requires soldering iron, fits inside 
drive - £11. Sideways RAM system 16K 
with software to load/save ROMs - £25. 
All prices include VAT and p&p. Computer 
repairs, competitive rates. Please 
telephone for further information. Dept 
B2, MAGUS Electronics, 33 Pool Lane, 
Winterley, Sandbach, Cheshire CWll ØRZ. 
Tel: (0270) 582748. 


MARKS AND STATISTICS For teachers and 
lecturers. Simple to use spreadsheet 
format. 330 students per file. Up to 300 
subjects. Sorts, analyses, normalises, 
calculates means, applies weighting 
factors. Prints histograms and lists. 
Full documentation supplied. Disc (40 or 
80 track) £17. In-Form, 73 Woodfield 
Park, Colinton, Edinburgh EH13 ØRA. 


Members' Corner 


Mr. P. S. Flowers of 19 Sevenacres, Somerton, Somerset has a 
problem in using his UDM double density disc filing system. He 
is trying to perform double stepping using an OSWORD call 
with A set to &79 (not &7F) but with no response. Anyone who 
may be able to help Mr. Flowers can contact him at the above 
address or phone him on 0458-73144. 


EE 


Events 


Electron and 
BBC Micro User 


Royal Horticultural 
Halls, Westminster 


7 - 9 Nov 


(Discount off entrance — see voucher in this issue) 


Higher Technology 
and Equipment in 
Education 


BEEBUG 


Barbican Centre 
London 


21-24 Jan 
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BEL" 


atthe 


BBC MICRO 


Royal Horticultural Hall, Westminster, London 
7th - 9th November 1986 


Visit BEEBUG and BEEBUGSOFT at the Micro User Show 
- Stand 87 


* 50p off standard show entrance price using voucher below. 

* Special half-price offers on many back issues of BEEBUG 
magazine. 

* Special offer on BEEBUG dynamic blank discs. 

Many other special show offers. 

All magazine cassettes and discs, including Magazine Games 

and Magazine Utilities. 

* Full range of BEEBUGSOFT 
products. 

* Magazine and technical staff 
to answer all your queries. 
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U.K. Bulletin Boards 


All the above listed boards were active as of late September 1986. Circumstances 
may have changed since then and BEEBUG would appreciate members letting us know of 


any changes they have discovered such as boards 


that have ceased operating or 


changed times and baud rates. Also, if you know of a board that is not listed here, 
please let us know for the benefit of other members. 


Some new boards, particularly NBBS and OBBS systems, 


enable Beeb owners with 


Commstar or the Demon Zromm to have colour. With Commstar use Mode 7 and switch off 


the filter mask at the command screen before entering 


'Chat' 


mode. Zromm users 


should use Mode 7 and *Chat instead of *Terminal. Then when logged on answer 'Yes' 
to the question 'Are you using software on a BBC that allows colour'. 


Aberdeen ITEC 0224 641585 Brixton ITEC 61 735 6153 
24 Hours (Aberdeen) 24 Hours (London) | 
1200/75 Viewdata 1200/75 Viewdata 
Acorn 0223 243642 C-View 9702 546373 
24 Hours (Cambridge) 24 Hours (Essex) 
1208/75 Viewdata 1200/75 Viewdata 
Amrad 9021 744 1558 CBABBS 921 430 3761 
24 Hours (Solihull) 24 Hours (Ex.Thurs.) (Birmingham) 
300/300 300/300 
BABBS 9225 23276 CBBS London West 0895 420164 
21.00-00.00 (Bath) 24 Hours (London) 
300/300  * V 300/300 
BABBS I 0394 276306 CBBS Surrey 04862 25174 
24 Hours (Felixstowe) 24 Hours (Surrey) 
300/300 300/300 
BABBS II 0268 778956 CBBS South West 0392 53116 
24 Hours (Basildon) 24 Hours (Exeter) 
300/300 1200/75 & 309/300 
Basildon ITEC 0268 22177 CFC49 0395 272611 
24 Hours (Basildon) 24 Hours (Exmouth) 
1200/75 Viewdata 300/300 
Basildon ITEC 0268 25122 CNOL 0524 60399 
24 Hours (Basildon) 24 Hours (Lancaster) 
300/300 300/300 
Belton BB 0493 781334 COCO BBS 9912 651944 
24 Hours (Great Yarmouth) 24 Hours (Tyneside) 
1200/75 & 300/300 300/300 
Bloxham NOBB 0295 720812 Communi tel Øl 968 7402 
22.00-01.00 (Banbury) 24 Hours (London) 
300/300 1200/75 Viewdata 
Bradford OBBS 90274 496783 Communitree 9874 711147 
18.00-00.00 (Bradford) 21.00-08.00 (Wales) 
300/300 300/300 
—>37 
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Personal Ads 


BEEBUG members may advertise unwanted computer hardware and software through 
personal ads (including 'wants') in BEEBUG. These are completely free of charge but 
please keep your ad as short as possible. Although we will try to include all ads 
received, we reserve the right to edit or reject any ad if necessary. Any ads that 
cannot be accommodated in one issue will be held over to the next, so please advise us 
if you do not wish us to do this. We will accept adverts for software, but prospective 
purchasers should ensure that they always receive original copies including 
documentation to avoid any abuse of this facility. 


We also accept members' business ads at the rate of 3@p per word (inclusive of VAT) 
and these will be featured separately. Please send all ads (personal and business) to 
MEMBERS' ADS, BEEBUG, Dolphin Place, Holywell Hill, St Albans, Herts AL] 1EX. The 
normal copy date for receipt of all ads will be the 15th of each month. 


BBC B, 0.9.1.2, Basic II = £225 ono. BBC B with Acorn DFS and sideways ZIF 

6502 second processor - £100 ono. HCR Socket plus single 80 track double sided 

RAM/ROM box (2 boards 32k RAM) - £100 disc drive. £250. Phone Spalding (0775) 

ono. ROMs - Disc Doctor, Floppywise 3823. 

Plus, Enigma. Robin, Tel: (Ø543) 254805 

after 6pm. For Sale. Wordwise Plus ROM, 
introduction and reference manuals 


32K shadow RAM board, ROM and manual 


complete with cassette typing tutor. 


(Watford) £40. Tel:(02403) 4206. £35. Shepherd, Milton Keynes (0998) 
BBC B. Acorn DFS, 1ØØK drive, Watford SLT 
32K RAM card, View 2.1, Toolkit, BEEBUGS 

A P BBC B, 0.5.1.2, Opus DFS, 1ØØK/175K 
aa ak uper and diso guides; single side slim disc drive, manuals. 


books mags and software. £5ØØ the lot. 


Aldershot (Ø252) 316712. £285. R.Smith, 6Ø Mendip Ave., Weston- 


Super-Mare BS22 ØHT. Tel: (8934) 513934. 


BBC B, Acorn DFS 1.2, 2x400K drives, 
Watford 32K shadow RAM, ATPL ROM board + 
16K sideways RAM. AMX Super Art + mouse 


Pan Course Tutors Study and Revision 'O' 
level packs complete with books and 
guide: Physics (three discs) £10.00 - 


+ Inter-word, Inter-sheet, ISO Pascal, Biology (two discs) £9.50. Also ‘BEL 
BCPL, Comal, GXR and many more ROMs all BASE 2' disc based database (latest 
with original manuals. Some games. version) £13.50 and 'BEL CAD' with 
Prepared to split hardware and software. character and icon designer £10.00. All 


£655. Full set of Acorn Users£20 and 
BEEBUG £15. Tel: Hatfield (07972) 64378 
evenings. 


complete with manuals in good condition. 
W.J.Lambert, Malt Cottage, Main Street, 
Wymondham, Melton Mowbray, Leicester- 
shire LE14 2AG. Tel: (Ø57) 284664. 

For sale: BBC slimline 40 track SS 100K 


disc drive, UDM double density disc 
controller, Beebugsoft Masterfile II (40 
track) £50. Phone (0582) 881614. 
Quendata DWP 1128 users. *commands, 
details. 22  Bramley Drive, Offord 
D'Arcy, Huntingdon PEIS 9SF. Tel: (0480) 
812017 evenings. 


For sale, Electron Plus 3 disc drive and 
interface, View cartridge, disc database 
and 1Ø blank 3.5 inch discs. £150. Phone 
Phil Jones (0533) 56037 ext 277 during 
business hours. 


Laserbug magazines wanted to complete 
project. Details to 101 St.Nicolas Park 
Drive, Nuneaton, Warwickshire CV11 6DZ. 


Viglen PC console £38; StarDatabase ROM 
and utilities £40; ATPL sidewise ROM 
board £30; Beebugsoft Paintbox disc £6; 
Vine Replay ROM 8271 £27; Snapper disc 
£5; Carousel disc £5; BBC dust cover £2; 
Disc drive dust cover £2; All mint 
condition. Tel: (@31) 6641809. 


Chartbusters, Combat Lynx, Wizadore, 3D 
Grand Prix, Jetpac - £4 each, Overdrive, 
Dune Rider, Croaker, Moonraider, Gold 
Digger - £2 each. Marlow (06284) 6745. 


Acornsoft/Mi business software series. 
Invoicing and mailing system packages 
(40 track discs) £10 each. Tel: (9303) 
42540 evenings. 
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Compost Heap 
24 Hours 


Cyberzone 
24 Hours 


Cymrutel 
24 Hours 


Distel 
24 Hours 


Distel 
24 Hours 


Electronic Tourist 
Board 
24 Hours 


Fastnet Fido 
22.00-08.00 


FBBS Jersey 
18.00-06.00 


FBBS Swansea 


9622 46036 
(Maidstone) 
309/300 1200/75 


9l 638 2034 
(London) 
300/300 


0492 49194 
(Wales) 
1209/75 Viewdata 


91 679 1888 
(London) 
309/300 


01 679 6183 
(London) 


1209/75 


0874 730172 
(Powys) 
300/300 1200/75 


951 260 5607 
(Liverpool) 
300/300 (Bell) 


0534 55855 
(Jersey) 
300/300 


9792 203953 


Hackney BB 
24 Hours 


Hamnet 
17.30-08.45 Mon-Sun 
12.30-13.45 Mon-Fri 


Haunting Thunder 
21.00-08.00 


Health Data 
24 Hours 


Inferno 
22.00-23.30 


ITCU Exchange & Mart 
24 Hours 


Keyboard 
20.00-00.00 


Livingstone BBS 
24 Hours 


London BB 
24 Hours 


Øl 985 3322 
(London) 
1200/75 Viewdata 


0482 465150 
(Hull) 
300/300 


0752 364059 
(Plymouth) 
300/300 


Øl 986 4360 
(London) 
1209/75 Viewdata 


0206 41491 
(Essex) 
300/300 


Øl 968 4742 
(London) 
1200/75 Viewdata 


0908 668398 
(Milton Keynes) 
309/300 


9506 38526 
300/300 


Øl 455 6607 
(London) 


24 Hours (Swansea) 1200/75 & 300/300 
300/300 
London W Tech Centre 0895 52685 
Fido - UK 0635 46480 24 Hours 300/300 
15.00-06.00 (Berkshire) 
300/300 London Underground 91 863 0198 
24 Hours (London) 
Forum 80 London Øl 902 2546 1200/75 & 300/300 
Evenings (Ring & ask) (London) 
300/300 Mailbox 80 951 428 8924 
24 Hours (Liverpool) 
Forum 80 Hull 0482 859169 300/308 
19.30-23.30 (Hull) 
300/300 Maptel 9702 552941 
24 Hours (Essex) 
Forum 80 Spa 9926 39871 309/300 
22.30-00.30 (Leamington Spa) 
399/300 Marctel Øl 346 7150 
18.00-22.00 (London) 
Gnome at Home 91 888 8894 300/300 
24 Hours (London) 
1200/75 Viewdata MBBS Leconfield 9401 50745 
24 Hours (Beverley) 
Gosport Apricot 9705 524805 309/300 
18.00-00.00 (Gosport) 
UN TO BE CONTINUED 
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Machine Filing System 


Meon] 


When you 
press an alpha- 
numeric key on 
the keyboard, 
an image repre- 
senting that 
character app- 
ears on the 
screen. You may 
have idly wond- 
ered how it all 
happens. Here 
is a part of 
the story, with 
emphasis on the 
two different 
representations 
which the computer uses for each allowable 
character - the ASCII code and the charac- 
ter dot pattern. By knowing a little about 
this we can persuade the computer to print 
in different styles, to give double height 
double width, or even giant characters. 


st 


course 


Character 
Formation 


To begin with, whenever a key is 
pressed, the operating system soon gets to 


hear about it, and places a code for each 
key pressed into a sequence of memory 
locations. This area is called the 


keyboard buffer, and is located from &3EØ 
to  &3FF. Whenever the Return key is 
pressed, Basic examines the contents of 
this buffer, and responds accordingly. 


As well as sending the ASCII code of 
the pressed key to the keyboard buffer, 
the operating system also sends it to a 
routine which writes directly to screen 
memory. From then on the VDU hardware 
ensures that it appears on the TV/monitor 


in a readable form. On its way to the 
Screen memory an important translation 
takes place. The operating system uses a 


so-called 'look-up table' to translate the 
ASCII code of the character of the pressed 
key to a bit pattern which actually 
defines the physical appearance of the 
character on the screen. Let us look in a 
little more detail at these two different 
kinds of character representation. 


ASCII CODES 
You may already have some familiarity 
with ASCII codes. They range in value from 
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David Graham explores 
the Beeb’s character set. 


Ø to 255, and the accom- 
panying table shows those 
between 32 and 127. As you 
will see the codes are 
given in both decimal and 
hexadecimal. The group of 
codes from 0 to 31 are the so-called 
control codes, which produce various 
effects on the BBC micro from clearing the 
Screen to defining a graphics window or 
removing the cursor. We do not have 
sufficient space to cover these special 
codes, but full details are given in the 
"VDU" section of the Beeb and Master's 
various manuals. 


You can see how the ASCII codes for 
characters in the range 32 to 126 operate 
by using the VDU command or the CHR$ 
function in Basic. Thus if you type: 

PRINT CHRS (107) 
or VDUI97 

this will prod- 
uce the letter 
"k" because 1971. 


ASCII Codes (Modes 0-6) 
T 


is the ASCII 
code for lower 
case "k". If 


you wish tof. 
find the ASCII 


ar NE vg ma An|NE|-R| Å | Å 


code for a 

given charac- 

ter, use the | 
ASC function as] | 
follows: 

PRINT ASC("k") | 
This returns wile 


x 
<i 


the number 107, 
which is the 
ASCII value of 
the letter mem, Alternatively, the 
following one line program will print the 
ASCII value of any key pressed: 

REPEAT: PRINT GET:UNTIL Ø 


DEFINING A CHARACTER 

Ok, so ASCII 107 produces the letter 
"k". But how does the computer know that a 
particular character code corresponds to a 
given pattern on the screen? The answer is 
that all of the character patterns are 
also stored in the computer, and that the 
operating system looks up the pattern for 
a given character code, each time that the 
character is to be printed on the screen 
(except for modes 7 and 135 which work 
slightly differently). Fortunately in 
modes Ø to 6 the character patterns may be 
held in RAM, and there is a command which 
allows us to redefine them with relative 
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ease. On the BBC micro the 32 characters 
with codes from 224 to 255 are reserved 
for  redefinition. On the Master and 
Compact all characters in the range 32 to 
255 apart from 127 (delete) are held in 
RAM and are redefinable directly. 


As an example of character 
redefinition, try the following in any of 
the graphics modes (0-6): 

VDU23,255,60,126,219,255,126,60,36,66 

PRINT CHR$(255) 

This will.print a space invader character, 
and this technique is used very heavily in 
games programs of all sorts to put 
character images anywhere on the screen. 
The TAB command can then be used to 
position your invader or whatever, and if 
you wish to simulate movement, then a 
simple FOR-NEXT loop, altering the TAB 
position, will achieve this. But do not 
forget to erase the previous image when 
printing up the next, or you will end up 
with a continuous trail of invaders. 


In this example, we redefined 
character 255 as the invader character, 
but you may also redefine currently used 
characters. For example, the following 
will redefine the normal prompt character 
used in modes Ø-6 as an invader: 

VDU23,62,60,126,219,255,126,60,36,66 
And the following will redefine the space 
character (code 32) as a solid box: 

VDU23,32,255,255,255,255,255,255,255, 

255 
This allows you to see if you have any 
extra spaces in program lines, or in a 
piece of text (providing it is displayed 
in some mode other than 7 or 135). Try 
issuing this call, and then listing a 
program, or using Wordwise in preview 
mode, or View (but not in mode 7 or 135). 


We have seen that VDU23 can be used to 


create new character designs. But how, 
precisely do these strings of digits 
define a new character? The answer is 


simple for all those off-world beings who 
compute in binary. The first number after 
the VDU23 is the number of the character 
to be redefined - character 62 for the 
prompt or 32 for a space. The other eight 
numbers represent the state of each of the 
64 pixels on an 8 x 8 character grid. 

As you can see from the figure, the 
first row of bits is represented by 
00111180. Each "Ø" means that the 
corresponding point on the grid is off, 
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and each "qi 
that it is on. 
The string of 
digits 00111100 
is taken by the 
computer to be 
a binary number 


mal 


i 
e 
9 
6 
9 
2 
6 
6 
6 
6 


SOOSrrSo 
SOOSrrS2 


which repre- 

sents a row of 

Character Definition: the character 
UDU23,68,126,219, 255,126, |definition. Un- 
PG fortunately we 


cannot talk to 
the computer in 
binary, and we have to do the donkey work 
of translating this binary number into 
decimal (or hexadecimal) for the character 


definition. Translated into decimal, 
00111100 is £60, and this is the second 
parameter in the VDU23 character 
definition for the space invader. A 


further 7 parameters inform the computer 
of the desired pattern for the remaining 7 
rows of the character grid. 


You may well have a character definer 
program which does all this work for you, 
but you may also find the accompanying 
listing (Program 1) of use. It converts 


binary numbers to decimal, and thus 
considerably speeds up the character 
definition process. It will convert any 
binary number of up to 31 digits in 


length, and prints out both the decimal 
and hexadecimal equivalent. The program 
incorporates an input trap, and will 
ignore entries containing  non-binary 
characters. If you do not need this, you 
can considerably shorten the program: just 
ignore lines 20, 50 and 120 - 180. 


REM PROGRAMI: Binary to Decimal v5 
REPEAT 

REPEAT 

INPUT "Binary number "AS 

UNTIL FNTEST 

N=Ø 

FOR A=1 TO LEN(AS) 

N=N-2* (LEN (AS) -A) * (MIDS (A$,A, 1) -"1 


NEXT 
PRINTN;" dec";SPC5;"&";^N;" hex" 
UNTIL FALSE 
DEFFNTEST 
TEST-TRUE 
FOR A=1 TO LEN(AS) 
IF MIDS(AS,A,1)<>"1" AND MIDS(AS,A 
,1)«»"Q" THEN TEST=FALSE 
170 NEXT 
180 =TEST 


READING CHARACTER DEFINITIONS 

The computer's character definitions, 
or dot patterns as we called them earlier, 
are stored in exactly the same format as 
used in the VDU23 character definition 
call: that is to say, as a sequence of 8 
numbers representing the 8 x 8 character 
grid. A special call is provided for the 
user to read the resident character 
definitions, and this can be useful if you 
wish to manipulate the characters, or 
change their scale in any way. 


The process of reading the definitions 
involves a so-called OSWORD call to the 
operating system. But we may ignore the 
ins and outs of this by parcelling up the 
call in a short procedure. This is listed 
in Program 2. The procedure itself appears 
from line 1000 onwards. The earlier part 
of the program just gives an example of 
its use. Lines 120 and 130 set up a memory 


100 REM PROGRAM2: Character Read PROC 
110 REM with Example v7 

120 D=&AØØ 

130 DIM B(8) 

140 MODE4 

150 PRINTTAB (8,3) "CHARACTER INVERTER" ' 


160 REPEAT 

170 PRINT'"Press any key "; 

180 C-GET 

190 PROCCHREAD (C) 

200 VDU23,253,B(7) ,B(6) ,B(5) ,B(4) ,B(3) 


;B(2) ,B(1) ,B(Ø) 
210 PRINTCHR$ (C) ;SPC2;CHRS (253) 
500 UNTIL FALSE 
510 3 
1ØØØ DEF PROCCHREAD (1) 
1Ø1Ø ?D=I 
1020 X%=Ø:Y%=&A:A%=&A 
1Ø3Ø CALL &FFF! 
1040 FOR A=Ø TO 7 
1058 B(A) =D? (A+1) 
1060 NEXT 
1878 ENDPROC 


area for the OSWORD call, and dimension an 
array B(n), which will hold the result of 
the read operation. These two lines should 
be included in any program calling the 
character-read procedure. Line 180 uses 
the GET function to return the ASCII value 
of any key pressed. This is then passed as 
a parameter (C) to the procedure 
PROCCHREAD in the following line. This 
reads the definition of the character of 
ASCII code C, and places the result in the 
array B(n) in such a way that B(Ø) holds 
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DEE GE EEE 


the number representing the top row, B(1) 
the next, and so on down to B(7). 


Line 200 then defines character 253 
using the 8 values read by the procedure, 


but as you can see, it does this 
backwards, using the bottom line  (B(7)) 
first. The result of this is that 


character 253 holds an inverted version of 


the original. The two versions are then 
printed out in line 219. 
CHARACTER REVERSAL 

Once we have read a character 


definition using PROCCHREAD there are many 
things that we can do with it. Program 
listing 3 contains a few lines which may 
be added to listing 2. They cause two 
further images of the keyed character to 
be | produced. They are reversed out 
versions of the two images produced by 
listing 2. The colour reversal is achieved 
thanks to a simple property of binary 
numbers. Each of the 8 numbers of the 
character definition is subtracted from 
255 (11111111 binary). This produces what 
is called the binary complement of the 
number. In other words, for each binary 


one, a binary zero appears, and vice 
versa. An example should make this 
clearer. We will take the binary 


complement of the number 60, used in the 
first row in the space invader definition: 
11111111 = 99111100 = 11090011 
255 - 60 = 195 
A reversed out space invader would have 
195 as the value of its first row. This 
reversing process is carried out in the 
FOR-NEXT loop in lines 230 - 250, and the 
two new characters defined in lines 260 
and 270. Line 280 then prints out the two 
new images. 


220 REM REVERSE OUT CHARACTER v1 

230 FOR A-0 TO 7 

240 B(A)=255-B(A) : REM REVERSE CHR 

250 NEXT 

260 VDU23,254,B (Ø) ,B(1) ,B(2) ,B(3) ,B(4) 


1B(5) ,B(6) ,B(7) 

270 VDU23,255,B (7) ,B(6) ,B(5) ,B(4) ,B(3) 
,B(2) ,B(1) ,B(Ø) 

280 PRINT'TAB (15) CHR$ (254) ;SPC2;CHRS (2 
55) 


Next month we will continue this 
discussion, and show how to create double 
height, double width and rotated 
characters, as well as giant text. B 

D 
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SIDEWAYS 
RAM 
EXPOSED 


Will this latest book by 
Bruce Smith live up to 
its title and delve deep 
into the inner workings 
of sideways RAM? Our 
own expert in this field, 
Bernard Hill, gives his 
considered view. 


Advanced Sideways RAM User Guide by Bruce 
Smith, published by Victory Press at £9.95. 


With a book on sideways ROMs and RAMs 
already on the market by this author ("The 
BBC Micro ROM Book" - see review in BEEBUG 
Vol. 4 No. 3) the immediate question is 
"so what's different about this one?". A 
glance at the subtitle ("for the Master 
and BBC Computers") gives a clue. In fact 
this book is badly subtitled - there is 
precious little for the BBC micro user: 
throughout the text the examples are aimed 
directly at the Master without any warning 
- Welcome discs, Private RAM, *SRLOAD 
etc., and the programs are wrongly said to 
be Basic II compatible (the vast majority 
use 65CØ2 assembler instructions). And 
while we're on the negative side let me 
purge myself of the book's most annoying 
trait: it's been word processed on a daisy 
wheel printer without a distinctive figure 
"1", so every single occurrence of this 
number shows a letter "1" overprinted with 
an  up-arrow ^: totally distracting when 
reading. In fact the whole book has the 
taste of inadequate preparation and 
proof-reading. Printing errors are common, 
(page 133 even contains a typed-in proof- 
reader's comment!), the index is quite 
inadequate (no entry for "memory", "load", 
"link"...), and occasionally there are 
minor factual inaccuracies. To call it a 
"User Guide" is also rather misleading as 
it is in no way an "official" book, and 
"Advanced Sideways RAM Tutorial" might 
have have shown better its strengths. 
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Advanced 
Sideways 


RAN 


The first chapter is 
the usual difficult com- 


promise in addressing both 
beginner and expert. The 
real core of the book is 
contained in chapters 2 to 
457 and 5 appendices. 
Chapter 2 is a clear ex- 
planation of the sideways 
header, and is an expanded 
'Master' version of the 
corresponding chapter of 
the earlier book. With 
chapters 3 to 5 we have a 
much fuller explanation 
than previously of the 
notion of service calls, 


and in particular *HELP 
and * command interpreters, 
(with clear lists of new 
service calls particular to 
the Master). The order of 
the previous volume is much improved here, 
and the inclusion of a chapter on defining 
your own OSBYTE and OSWORD calls (Chapter 
6) is an enlightening divergence from the 
standard approach. A short chapter on 
extended vectors (5 pages!) is followed by 


PUBLISHING 


a round-up of other service calls, and 
Chapter 9 is avery nice addition on 
extending *CONFIGURE and *STATUS options 


via a sideways ROM. A brief examination of 
auto-booting is followed by a much-too- 
short chapter on workspace: difficult 
enough on the BBC, but with all the hidden 
workspace on the Master 7 pages is not 
really enough! The very clear chapter on 
the Rom Filing System contains essentially 
the same RFS formatter as the earlier 
volume and chapters on Languages and Error 
Handling are very clear. 


Bruce has improved over the earlier 
book in that he has discarded the 
soon out-of-date software and hardware 
reviews and expanded the listings to 25 
very clear programs. Whether this book is 
for you very much depends on what else you 
have: the proficient SWR programmer with 
all the Master User Guides will find 
little of use, but for most lesser mortals 
the collection of programs together with 
list of new OSBYTE/OSWORD service calls in 
one volume might well save the £50 on User 
Guides alone. Once you get over the 
unpolished style of the book it makes 


fascinating and challenging reading. 


This book is available from BEEBUG - see 
mail order price list. 
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Automated path 
selection, instant 
backups and an 
infinitely extendable 
Help option are just 


MASTER 
SERIES 


Executive 
Power 


the Master and 
Compact using EXEC 
files. David Graham 
shows how it's done. 


When an EXEC file is called, its 
contents are treated as if they were 
entered from the keyboard. For those 
familiar with the IBM PC, they are similar 
in many respects to MS-DOS batch files. 
Thus if you create an EXEC file which 
contains the two lines: 

*KEYØ LOAD 

*WORD 
this would set up function key Ø with the 
word LOAD, and then call up the View 
wordprocessor. But we can create much more 
powerful EXEC files than this, as I hope 
to demonstrate in a moment. 


EXEC files are made the more useful 
because of two special features of the 
Master and Compact. Firstly, you can EXEC 


into the computer any suitable file by 
simply preceding its filename with an 
asterisk. Thus *H will EXEC in a file 


named "H". This feature of the 1770 DFS 
and ADFS makes it very easy to call EXEC 
files. Model B users must precede the 
filename with *EXEC (or *E.). Secondly, 
the ADFS allows the setting up of a 
So-called library directory and drive 
(using the *LIB command). The DFS has a 
similar feature but it is of'limited use. 
If the ADFS fails to find a particular 
filename preceded by an asterisk, it will 
automatically Search the designated 
library directory for it. This means that 
you can keep a whole set of EXEC files in 
a library directory, and every time that 
you enter the filename preceded by an 
asterisk, the relevant file will be found, 
regardless of the current directory. In 
fact you may even assign a library filing 
system with *LIBFS. 


Unfortunately the identity of the 
library directory is not stored on the 
disc itself, but held in memory. This 
means that it must be re-assigned each 
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some of the things that 
can be implemented on 


time that you change disc, or power up, 
and in particular, each time that  *MOUNT 
is issued. Perhaps the easiest way to set 
the directory is to do it in the boot file 
of every disc. It is then automatically 
Set every time that the disc is booted. 
Another way is to use Ctrl-A-Break. Each 
time that this is issued, the filing 
system searches the root directory of the 
disc for a directory beginning with the 
letters LIB. If it finds one, it 
designates this as the library, if not, it 
designates the root directory as the 
library. A third method, and there is 
something to be said for using a 
combination of all three, is to use an 
EXEC file to reset the library directory. 
This could be called $.L, and would 
contain the single line: 
*LIB $.LIBRARY or whatever 

Thus if you found at any time that the 
library was unset, you would just issue 
the command *S.L 


CREATING EXEC FILES 

EXEC files may be created in any one 
of a number of ways. Users of the Master 
will probably find the Editor the simplest 
option once they are sufficiently familiar 
with it. To use the Editor, enter it with 
EDIT from Basic, then type in your 
required text without line numbers, 
pressing Return at the end of each line. 
Then use f3 to save the file under the 
chosen filename. As an alternative, you 
may use View, Wordwise, or the command 
*BUILD (see manual). But these three 
methods have certain limitations, and for 
this reason a separate note is given on a 
method which relies on Basic. We now take 
a look at some of the many applications of 
this extremely useful type of file. 


CONTROLLING THE PRINTER 

Remembering printer control codes, or 
even trying to look them up in the manual 
can be a pain. The EXEC file solves the 
problem with the greatest of elegance. For 
example, you have only to create a file 
called ELITE that sets up the codes for 
the Elite typeface on your printer, and 
any time that you type *ELITE, the job 
will be performed, whether you are in 


Basic, View or wherever. By now you have 
probably already thought of a dozen 
printer codes that you could put on file 


in this way. The accompanying table gives 
one or two useful Epson codes including 
the very handy skip-over-perforations, and 
a five-space indent for use with program 
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SOME USEFUL EPSON CODES 


Function 
Skip perf 
Cancel skip 
Indent 
Cancel indent 
Reset not MX8Ø 
Elite face 
Pica face 
Set hash (4) 
Set pound (£) 


VDU codes 


listings so that your hole-puncher does 
not perforate them irretrievably. The 
accompanying | codes in the table are 


sequences of VDU codes. These are best 
included in the file as pure control 
codes, rather than as direct VDU calls. 
That is to say it is preferable if your 
EXEC file contains the control character 
27 rather than the call VDU 27, for 
example. This can be achieved using the 
Editor, but is probably best accomplished 
using the Basic method, described in the 
accompanying inset. 


So far we have considered printer 
codes in isolation, but you may well wish 
to put several of them on a file together. 
A powerful example of this technique is 
given by a printout file which performs 
the following functions: 


Set LISTO option e.g. LISTO 7 

Set WIDTH 60, say, to give RH margin 
Set printer to skip perforations 

Set printer to print 4 in place of £ 
Set printer to give 5 column indent 
Turn printer on and perform LIST 
Perform form feed 

Reset printer and turn off 


ce Nyonu UÜ0tN-— 


To achieve all this, you just type *P, or 
whatever, and the whole process is carried 
out automatically. A program to create 
such an EXEC file is given as an example 
on the accompanying section on creating 
EXEC files from Basic. 


AUTOMATED PATH SELECTION 

The multiple nesting capability of the 
ADFS means that files which you are 
working on may well be deeply nested. The 
EXEC file can provide a very simple way of 
creating instant access to selected paths. 
For example, suppose that you are working 


on files in a directory accessed as 
follows: 
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$.0CT-WORK. PROG-DEV . UTILITIES.filename 
This is obviously a tortuous route to 
travel, even though it uses only four of 
the potential 127 nesting levels of the 
filing system. However, you can provide a 
very fast route to this directory by 
creating an EXEC file whose content is: 

*DIR $.0CT-WORK.PROG-DEV . UTILITIES 
If you give this file the name "U", say, 
and save it in the library directory, then 
to get to the specified directory, 


regardless of the currently selected 
directory, just type: 
*U 


It is as simple as that. 


INSTANT BACKUPS 

The same principle may be used to 
permit the making of instant backups on a 
separate disc, using a dual drive as 
follows. Set up one or more directories on 
the second drive to hold the backup files. 
They could be named $.PROGBACKUP and 
S.TEXTBACKUP for the sake of argument. Now 
create an EXEC file with the following 
contents: 

SAVE": 1.$.PROGBACKUP. 
It should not be terminated with a Return 
(i.e. it should be on the very bottom line 
in the Editor, or if you are using the 
Basic method, put a semicolon at the end 
of the PRINT statement). Save this file 
with the name "PB" (for Program Backup) in 
the library directory of your work disc, 
which we will assume is kept in drive Ø. 
Now, whenever you wish to backup a 
program, type *PB «Return? followed by the 
name of the file, followed by a single 
quote. Pressing Return will save the file 
in the program backup directory on the 
backup disc in drive !, while leaving you 
in your currently selected directory on 
drive Ø. A similar file can be used from 
within View, except that the two quotation 
marks, one in the EXEC file and the other 
to terminate the filename, are not 
necessary, and the word PROGBACKUP would 
be replaced with TEXTBACKUP. 


A similar process can be achieved with 
Wordwise Plus, except that here, the EXEC 
file can even supply the previously used 
filename on which to save the backup. The 
following EXEC file saved under the name 
T3 in the library directory of your work 
disc will achieve this: 

:PRINT"Current Filename: "+FS 

:SAVE TEXT":1.$.TEXTBACKUP.'"+FS 
Again there should be no Return after this 
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CREATING EXEC FILES USING BASIC 


Essentially this method of creating 
EXEC files uses a Basic program to spool 
out the required file. Anything that is to 
appear in the file, except VDU calls, 
should appear within a PRINT statement in 
the Basic program. You may choose to save 
away the original Basic program for future 
editing, since it will not be easy to edit 
the EXEC file itself. 


As an example, the following Basic 


program will produce an EXEC file called 


"p60" which performs a formatted program 
printout for the Epson FX80 as described 
in the section on "Controlling the 
Printer". 


REM CREATES PRINTER FILE v 5 
*FX3,4 

*SPOOL p60 

PRINT"*| Program Printer" 
PRINT"LISTO 7" 

PRINT"WIDTH 60" 


last line. Executing *TB from within 
Wordwise Plus | causes the  last-used 
filename to appear on-screen. If you wish 
to save the backup with the same filename, 
just press Return. If you wish to alter 
the filename, you can delete the "+F$" 
appearing at the end of the command line 
on-screen and replace it with the name 
required. F$ is a variable which holds the 
last-used filename in Wordwise Plus. Once 
the save has been performed, you are 
returned to Wordwise with the current 
filename, and the currently selected 
directory unchanged. And if you want to 
catalogue the backup directories, further 
EXEC files of the form: 
*CAT :1.$.PROGBACKUP 
can be used. 


INSTANT INFO 

If you require instant on-screen 
information on a particular subject you 
can store this in an EXEC file as follows. 
Suppose that you need to remember the 


addresses of the machine's various system 
calls. You could create an EXEC file as 
follows: 


*| SYSTEM CALL ADDRESSES 
*| OSCLI &FFF7 

*| OSBYTE &FFF4 

*| OSWORD &FFFl etc 
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VDU 2,1,27,1,78,1,6: REM SKIP PERF 
VDU 1,27,1,82,1,0 :REM SET HASH 
VDU 1,27,1,108,1,5 :REM INDENT 
PRINT"LIST" 

VDU 1,12 :REM FORM FEED 
VDU 1,27,1,64,3 : 

PRINT"LISTO 1" 

PRINT"WIDTH Ø" 

* SPOOL 

*FX3,0 


The *SPOOL commands at the start and end 
of the file create the EXEC file, which 
will print the title to the screen, and 
then set a width of 60, set LISTO 7, then 
pass various codes to the printer before 
listing the program. At the end of the 
listing, the printer is reset (using Esc 
64, not implemented on the MX80). The two 
*FX3 calls are to prevent the printer 
being sent form feeds when you run the 
program to create the EXEC file. After you 
have run the program once, typing *P60 
will call in the EXEC file and initiate 
printout. 


Save the file in the library directory of 
your work disc under the name CALLS, and 
every time that you get stuck for a call, 
just type *CALLS, and the help message 
will be listed to the screen. This 
technique can usefully be employed to list 
out the names and functions of your major 
EXEC files, perhaps using "H" as the 
filename. But you should note that the 
*BUILD method of creating EXEC files 
cannot be used because it does not accept 
the "|" characters. 


HEADERS AND FOOTERS 

If you frequently use headers in View 
or Wordwise for setting up formats or 
rulers or whatever, you can easily EXEC 
these in. In Wordwise Plus, you could 
create a file such as the following 

:CURSOR TOP 

:LOAD TTC "S.LIBRARY.header" 
The effect of this when called from within 
Wordwise Plus is to send the cursor to the 
top of the text area, and then load to the 


cursor (without destroying any resident 
text) the Wordwise file called "header" 
which is stored in the  $.LIBRARY 


directory. A similar process can be used 
for any command sequence which you wish to 
append to the end of your text. 


As you begin to think about it there 
are so many uses for EXEC files. 
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MASTER Another crop of hints 
SERIES 
for the Master and 
Master 
Hints Compact rounded up 
by David Graham. 


EASY DFS CAT FROM ADFS 

To catalogue a DFS disc in drive one, 
when you are currently using the ADFS on 
drive zero, just type: 

*-DISC-.] 


CO-RESIDENT EDITOR AND PROGRAM 

It is sometimes useful to be able to 
call the Master's Editor without losing 
the currently resident Basic program. This 
may be achieved as follows. It assumes 


that you have a program resident at 
PAGE-&E00, which is less than 16k in 
length: 


*FX180,&50 «Return» 

Press Break 

EDIT «Return» 

Use the Editor 

<Shift><f4> BASIC «Return» 

PAGE=&EØØ «Return» 
And you have your original program back. 
The output from the Editor is left in 
memory at &5000. If you type PAGE-&5000 at 
any time, this will retrieve your edited 
program. If you wish to increase the size 
of the Editor buffer, at the expense of 
the length of your original program, 
simply reduce the FX call parameter 
(currently at &50, giving a OSHWM setting 
of &5ØØØ) . 


EXECUTIVE EDITOR 

The following EXEC file, which may 
itself be created in the Editor, and saved 
in the library directory under the name 
"E", will set three function keys and then 
call the Editor from immediate mode Basic. 
The key settings are as follows: <fØ> 
calls the Editor from Basic, <f4> is used 
to return to Basic from within the Editor, 
and to set mode 135 (use Shift-<f4> then 
Shift-Ctrl-<f4>), while «fl» is used to 
reverse the foreground and background 


colours in modes 0 and 3 within the 
Editor. This can make text more easily 
readable, when the resolution of the 
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monitor is not all that it might be. This 
key works equally well within or outside 
the Editor. To use it from inside the 
Editor, press «fl» then Shift Ctrl <fl>. 
*FX 228,1 
*KEYØ EDIT|M 


*KEY] |sja|cjajaje|s|A]eje|a]e 

*KEY4 BASIC|M MODE 135|M 

EDIT 
A further bonus of using mode 3 in the 
Editor with reversed text is that the 


whole screen contains ruled lines, making 
certain types of editing work a little 
easier. One last point on the subject of 
the Editor: it is excellent for producing 
EXEC files like the one above, but 
remember to use the internal save and load 
options, rather than attempting to return 
to Basic, which destroys any text without 
line numbers. 


EDITOR PROGRAM LOSS 
If you have a Basic program in memory, 
and decide that you just want to edit a 
few lines of it, say from line 1Ø to 50, 
avoid the temptation to issue the command: 
EDIT 10,50 
It is perfectly legal, and positively 
tempts you to use it. But when you use 
Shift <f4> to return to Basic, the newly 
edited lines will be ALL that remains. The 
rest of the program will have been 
overwritten. 


ADFS *ACCESS 

The various ADFS access parameters do 
not function quite as the Master manuals 
appear to imply for LOAD and SAVE 
operations. The accompanying table is an 
attempt to clarify the situation. 


STATUS 
R or RW 


LR or LWR 
W or None 
L 


From the information supplied in the 
manuals, one would expect the attribute R 
to allow read-only (as it does in the case 
of OPENUP/OPENIN/OPENOUT) , whereas to 
achieve this you need to use LR or LWR. 


The "None" in the third row is an 
unexpected option. It is achieved quite 
simply by calling  *ACCESS with no 


parameters after the filename, and has the 
same effect on LOAD and SAVE operations as 
the W attribute. 
D 
0 
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Fed up with pica on 
your monitor? Brian 


MASTER 
SERIES 


Knott shows how to 


swap fonts with ease 


Master Font 
Manager 


on the Master or 


Compact. 


One of the differences between the 
Model B and the Master series is that the 
storage area for the function key 
definitions and the user-defined character 
sets has been moved from &BØØ-&CFF to the 
Master's Private RAM. One consequence of 
this is that users can no longer directly 
*SAVE or *LOAD function key definitions or 
user-defined characters. BEEBUG Vol.5 No.2 
included an article on saving and 
restoring function key definitions - this 
article shows how to do the same for 
user-defined character sets. 


The currently defined character set is 
held in the Private RAM locations &89ØØ to 
&8FFF - these locations cannot be accessed 
directly because the current language ROM 
is paged into memory at  &8000. However, 
the Master's designers have provided a 
flag which, when set, gives access to the 
Private RAM at locations &8000 to &8FFF. 
The flag is at location &FE3Ø and its use 
is documented in the Reference Manual Part 
One, Section F2. Whilst the flag is set, 
it is possible to read from, or write to, 
Private RAM, but whilst we do this we 


cannot have a language ROM active, so we 
must work in Assembler. 
SAVING A CHARACTER SET 

The technique used here for saving a 


character set is to switch in the Private 
RAM, copy all the character definitions 
into main memory, switch out the Private 
RAM, and then *SAVE the area of main 
memory. Program | does this - type it in 
and save it as "SAVEFONT" (or, say, 
"SFONT" if you are using the DFS). To use 
it you must first define your characters, 
either manually or with a character 
definer, then CHAIN  "SAVEFONT". The 
program will prompt you for a filename to 


use for the Saved character set. It 
assembles the machine code at location 
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&DDØØ (the ‘transient program  area' 
advised by Acorn for holding short machine 
code) and temporarily stores the full 
character set at locations &75ØØ to &7CØØ 
in main memory. This temporary store is 
the top &6FF bytes of mode 7 memory. 


Program ] - SFONT 
REM Program SAVEFONT 
REM Version B 0.43 
REM Author Brian Knott 
REM BEEBUG November 1986 
REM Program subject to copyright 
REM : 
MODE 7 
PROCassemble 
CALL savechars 
REPEAT 
PRINT"CHARACTER FONT SAVE ROUTINE" 


INPUT"Name for file :- ",name$ 
UNTILname$«»"" 

OSCLI "SAVE "+nameS+" 75ØØ+6FF" 
END 

DEFPROCassemble 

LOCAL C$ 

FORC$-0TO 2 STEP 2 

P$-&DD0O 

[OPT C$ 

.Savechars 

LDA N set flag to 

STA N access Private 
STA N RAM 

LDA N &70,&71 hold num 
STA N of bytes to move 
LDA 

STA 

LDA 4 N &72,&73 hold 

STA N origin location 
STZ 

LDA N &74,&75 hold 

STA N destination locn 
STZ 

«mover LDX &71:LDY 40 

.loop LDA (&72),Y:STA (&74),Y 
DEY:BNE loop:INC &73 

INC &75:DEX:BMI end 

BNE loop:LDY &70:BNE loop 

«end LDA #12 N back to BASIC 
STA &F4:STA &FE30:RTS 


] 
NEXT : ENDPROC 


LOADING A CHARACTER SET 

The technique for loading a character 
Set is similar but reversed. Type in 
Program 2 and save it as "LOADFONT" (or, 
say, "LFONT" if you are using the DFS). To 
use it, just CHAIN "LOADFONT". It will 
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Program 2 - LFONT 
REM Program LOADFONT 
REM Version B Ø.43 
REM Author Brian Knott 
REM BEEBUG November 1986 
REM Program subject to copyright 
REM 


PROCassemble 
REPEAT 
PRINT"CHARACTER FONT LOAD ROUTINE" 


INPUT"Name of file to load :- ",na 


UNTILname$«»"" 

OSCLI "LOAD "+nameS+" 7500" 
CALL loadchars 

END 

DEFPROCassemble 

LOCAL C$ 

FORC$-QTO 2 STEP 2 
P$-&DD0O 
[OPT C$ 
.loadchars 
LDA #&8@ 
STA &F4 
STA &FE3Ø 
LDA #&FF 
STA &70 
LDA #6 
STA &71 
LDA #&89 
STA &73 
STZ &72 
LDA #&75 
STA &75 
STZ &74 
.mover:LDX &71:LDY $0 
.loop:LDA (&74),Y:STA (&72) ,Y 
DEY:BNE loop:INC &73 

INC &75:DEX:BMI end 

BNE loop:LDY &70:BNE loop 
.end:LDA #12 \ back to BASIC 
STA &F4:STA &FE30:RTS 

] 

NEXT: ENDPROC 


N set flag to 

N access Private 
N RAM 

N &7Ø,&71 hold num 
N of bytes to move 


N &72,&73 hold 
N destination locn 


N &74,&75 hold 
N origin location 


prompt you for the filename of the 
character set, will *LOAD the definitions 
into main memory, switch in the Private 
RAM, copy the characters across, and then 


Switch out the Private RAM. When you 
change to a graphics mode, the new 
character set will be evident. 


CHARACTER SETS ON THE WELCOME DISC 

The TIMPAINT program on the Welcome 
Disc includes three full character sets - 
Italic, Thin, and Wide. These sets can be 
individually loaded into the Master and 
then saved using SAVEFONT. They may then 
be re-loaded as required using LOADFONT. 
Assuming that you have the Welcome Disc in 
the drive, to load the Italic set you 
Should type '"*S$.LIBRARY.ITALIC", and to 
load the Thin set you should type 
"*S.LIBRARY.THIN". The Wide set needs to 
be set up from inside the  Timpaint 
program, so first CHAIN "S.TIMPAINT", then 
select font Fc using the pointer and the 
Ctrl key, then press Break. Having loaded 
any of these sets you can now change the 
disc and CHAIN "SAVEFONT" to save it. 


Also on the Welcome Disc is the CHARDES 
program which will allow you to define and 
save your own character sets. Any sets 
saved in this way can be loaded in by 
*RUNning the saved file. 


CHANGING CHARACTER SETS IN A BASIC PROGRAM 


It is possible to load different 
character sets from within a Basic 
program, using LOADFONT as a basis, as 


long as you work in a SHADOW mode (modes 
128 to 135), and as long as the memory 
required by your program does not go 
beyond &74FF. 


You should include the assembling 
procedure (lines 1000 to 1270) in your 
program and call this Procedure at the 
start to set up the code. Then, assuming 
you have used SAVEFONT to save a set of 
characters called ITALIC, you only need 
the following two lines to change to 


Italics: 
*LOAD ITALIC 7500 
CALL &DDØØ 


If you are ina graphics mode, this will 
immediately change to the Italics charact- 
er set, otherwise the new characters will 
be seen when you select a graphics mode. B 

l] 


27 There are ten different types of monster, 


all drawn in large-scale multi-coloured 
graphics, and an even greater number of 
attacking patterns. 


Galaforce is professionally presented, 
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with a demo mode, excellent sound effects 
and graphics. Even though Galaforce wins 
few marks for originality it is very 
enjoyable to play. Superior have managed 
to keep up their growing reputation as one 
of the Beeb's leading software houses. 
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DIGITAL STORAGE 
OSCILLOSCOPE 


(Part 2) 


This month, David Peckett puts the 
finishing touches to his oscilloscope 
program, adding a variety of rou- 
tines, including those for saving and 
loading data. 


This month's listing completes the 
storage 'scope program begun last month by 
implementing four additional procedures. 
These are concerned with the Load, Save, 
Star command, and Time Scale selection 
options, present only in dummy form in 
part one of the program. 


To enter these additions, which 
overwrite the four dummy procedures at the 
end of last month's listing, you may 
either load in last month's program, and 
then type in the current listing, or type 
in this month's listing separately, and 
then merge it with last month's. The merge 
operation could be variously achieved, 
either using Toolkit's *MERGE, the merge 
utility given elsewhere in this issue, or 
by using *SPOOL and *EXEC as described in 
Printer Graphics (part 3), again in this 
issue. 


THE NEW OPTIONS 

When you run the full program, the 
menu will look the same as before, except 
that the Save, Load ('Old data') and Star 
command options will now function 
correctly, though you should note that the 
Save option does not appear on the menu 
until there is data to be saved. You may 
also notice that the Star command option 
contains a trap for commands such as *COPY 
which would overwrite the program. 


The Load and Save options are very 
straightforward. Both request a filename 
before getting on with the job, and in 
both cases, a dynamic display of the 
number of bytes left to save/load appears 
on-screen. 


The only other addition is the Select 
option which appears once data has been 
plotted. Pressing 'S' from the plot screen 
activates two vertical bars which may be 
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Re-draw, Select or Quit (R7870)? _ 


moved using R or L together with the left 
and right cursor keys. The part of the 
display between these bars is selected for 
re-plotting when D (for Draw) is pressed. 
In this way the user may examine in detail 
small time segments of the plot. The 
process may be repeated to further amplify 
the x-axis. Pressing 'Q' returns you to 
the main menu as before. 


PLOTTING MATHEMATICAL FUNCTIONS 


As suggested earlier, it is possible 
to use this program to plot mathematical 
formulae as well as data from the analogue 
port. To achieve this, very few changes 
are required. You first need to insert a 
line at 1585 to scale the horizontal axis. 
For example: 

1585 ZzN$/100 
In this case, if you are plotting 1000 
points, the value of Z will range from Ø 
to 1Ø, since N$ holds the sample or point 
number during the plotting process, which 
ranges from Ø to 1000. You then need to 
replace line 1590, which normally reads in 
data from the analogue port. The following 
will cause it to plot SINE(Z): 

1598 Data%(N%)=2ØØØØ*SIN(Z) 

The 20000 is just a scaling factor. It 
effectively 'amplifies' the. 'signal' so 
that it is of the expected order of 
magnitude. 


A little experimenting here will soon 
begin to reveal the many interesting 
possibilities that this program has to 
offer. 


This month's 
contains a full 
'scope program together with two 
data files to get you started 
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magazine cassette/disc 
version of the storage 
sample 


PROGRAM NOTES 

PROCInit: The variable Maxpts sets the 
maximum number of samples the program can 
take (max-2509). 


PROCMenu: Sets up top-level menu. 
ROCRecord: Sets up recording parameters, 
alidates them, confirms them, and then 


erforms the recording. 


ROCPlot: Sets up the graph plotting. 


PROCPlota: Scales and draws the graph, and 
selects subsidiary options such as 
re-drawing a part of the data. The two 
plot procedures allow recursive calls and 
repeated drawing of parts of the data. 


PROCLimits: Asks for the possible 
real-world range of the recorded data to 
permit sensible scales to be displayed. 


PROCScale: Identifies the high and low 
values of the data points which will be 
displayed. 


PROCGraph: Used to set up the display 
axes. 


PROCDrawGraph: Actually draws the data on 
the screen. The variable LType is used to 
Select a continuous line or discrete 
points, by means of a PLOT n,x,y approach. 


PROCSelect: Puts the vertical cursors on 
the screen when part of the display is 
being selected for re-drawing. 


PROCSave: Saves the current sample data to 
disc or tape as a sequential file, 
displaying progress with a countdown. 


PROCOld: Loads data from a file, again 
displaying countdown. It also sets the 
variable hival to -1 so that the system 
knows that the data requires scaling. 


PROCStar: Gives access to star commands, 
with a trap for potentially dangerous 
ones. 


FNGetch(str$): Used to read key presses 
and compare them with the range of 
characters in str$. It is used with the 
program's menus to select options. 
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2980 
2990 
3000 
3010 
3020 
elect 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3118 
3120 
3130 


40 
50 
60 
70 
80 


Ww w CJ w w 


3190 


3200 
3218 
3220 
3230 
3240 
3250 
99) 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 


REM Digital Scope Part 2 v4 


DEF PROCSelect 
PRINT TAB(0,31) SPC35; 
PRINT TAB(0,31) "L/R & arrows to s 


, D to re-Draw"; 


XL=160: XR=1 200 

GCOL 3,1 

MOVE XL,2ØØ:DRAW XL, 1000 

MOVE XR,2ØØ:DRAW XR, 1000 

REPEAT 

*FX15,0 

IF INKEY-87 THEN PROCLLine 

IF INKEY-52 THEN PROCRLine 

UNTIL INKEY-51 

last=INT((XR-16Ø) /xscale+first+.5) 
first-INT ( (XL-160) /xscale+first+.5 


ENDPROC 

DEF PROCLLine 

MOVE XL,200:DRAW XL,1ØØØ 

IF INKEY-122 THEN XL=FNMin (XL+4,XR 


IF INKEY-26 THEN XL=FNMax (XL-4, 160 


32 
B8 
3 
n 
3 
3.8 
3.3 
8 
«3 


Re-drau, Select or Quit R/t-0)? 


MOVE XL,200:DRAW XL,1ØØØ 
ENDPROC 


DEF PROCRLine 
MOVE XR,200:DRAW XR,1000 
IF INKEY-122 THEN XR=FNMin(XR+4,12 


IF INKEY-26 THEN XR=FNMax (XR-4,XL) 
MOVE XR,200:DRAW XR,1000 
ENDPROC i 


DEF PROCSave 

CLS 

COLOUR 129:COLOUR Ø 

PRINT TAB(15,3) "SAVE DATA" 
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3340 COLOUR 128:COLOUR 1 

3350 INPUT '''"File name to save as? "F 
ile$ 

3360 F%=OPENOUT (FileS) 

3370 PRINT TAB(1Ø,1Ø) "Values left to s 
ave: ";N$ 

3380 PRINT#F%,N% 

3390 FOR I$-1 TO N% 

3400 PRINTHF%,Data%(I%) 

3410 PRINT TAB(31,10) ; (N2-I$) ;" " 

3420 NEXT 

3430 CLOSE#FS 

3440 ENDPROC 

3450 : 

3460 DEF PROCOld 

3470 CLS 

3480 COLOUR 129:COLOUR Ø 

3490 PRINT TAB(13,3) "READ OLD DATA" 

3500 COLOUR 128:COLOUR 1 

3510 INPUT '''"Read which file? "File$ 

3520 F%=OPENUP (Files) 

3530 INPUTHF%,N% 

3540 PRINT TAB(10,10) 
ead: ";N$ 

3550 FOR I%=1 TO N% 

3560 INPUT#F% ,Data% (1%) 

3570 PRINT TAB(31,19) ; (N3-I3) ;" " 

3580 NEXT 

3590 CLOSE#FS 

3600 hival=-1 

3610 ENDPROC 

3620 : 

3630 DEF PROCStar 

3640 CLS 

3650 COLOUR 129:COLOUR 0 

3660 PRINT TAB(13,3) "STAR COMMANDS" 

3670 COLOUR 128:COLOUR 1 


"Values left to r 


3680 PRINT TAB(1Ø,1Ø);:INPUT "*"star$ 

3690 LstarS=LEFTS(starS, 2) 

3700 OK=(Lstar$<>"CO" AND Lstar$<>"BA") 

371Ø OK-(OK AND Lstar$<>"L." AND Lstar$ 
<>"LO") 

3720 OK-(OK AND Lstar$<>"R." AND Lstar$ 
<>"RU") 

3730 IF NOT OK THEN VDU7:PRINT ''"THAT 
MAY ERASE THE PROGRAM!"'"Do you wish to 
continue (Y/N)? ";:OKS=FNGetch ("YN") : PRI 
NT OK$:0K- (OKS-"Y") 

3740 IF OK THEN PRINT:PRINT: PROCOSCLI (s 
tar$) 

3750 IF VPOS>29 THEN PRINT: PRINT 

376Ø PRINT TAB(Ø,31) "Press SPACE for m 
ain Menu "; 

3770 REPEAT UNTIL INKEY-99 

3780 ENDPROC 

3790 : 

3800 

3810 

3820 


DEF PROCOSCLI (str$) 
LOCAL X$,Y$ 
Sosclibuf=str$ 

3830 X%=osclibuf MOD 256 
3840 Y%=osclibuf DIV 256 
3850 CALL &FFF7 

3860 ENDPROC 


ERRATUM 
In last month's 
program was 
Please alter 


listing one line in 
unintentionally 
line 1580 to 


1588 N%=N%+1 
The, only effect of the duplication is to 


Slow down the reading of data. This is 
only noticeable at the very fastest speed 
setting of the oscilloscope. 


3920 IFC$>2C%$=C%*4+C3DIV8 

3930 IF (C%AND2) >ØFORM$=I%-Y3TOKSSTEP16: 
MOVEMS$ , L% : DRAWMS+Y% , J% : NEXT 

3940 IF (C%AND4) >@FORNS=JSTOLZSTEPS% : MOV 
EI$,N$:DRAWKS,N$:NEXT 

3950 IF(C%AND8) >ØFORM$=I%-Y%TOKSSTEP16: 
MOVEM% , J$: DRAWM3+Y% ,L3: NEXT 

3960 IF (C%AND16) >ØFORM%=I%TOKSSTEPS%:MO 
VEMS , J$: DRAWM% , L3: NEXT 

3970 VDU26:ENDPROC 

3980 DEFPROCline(A$,B$,P$,Q$,C$) 

3990 LOCALJ$,K$:J$-240* (CGAND3) 

4000 IF(C$AND4)-ÜK$-5ELSEK$-29 

4010 GCOLØ,1:VDUS:MOVEAS ,B$: PLOTK$ , P$ ,Q 


2 
$ 


4020 MOVEA$-8,B248:GCOLO,0:VDU243,8:GCO 
LØ, 1:VDUJ$ 

4030 MOVEP3-8 ,Q%+8 : GCOLG , Ø: VDU243,8:GCO 
LO ,1:VDUJ$ 

4040 VDU4: ENDPROC 

5000 DATA Demonstration Data 

5001 DATA BBC Micro Business Graphics 
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DATA Trend for 1986 
DATA Sales Performance (£'090),0,1 
DATA Jan,l,Feb,l,Mar,l 
DATA Apr,1,May,1,Jun,1 
DATA Jly,Ø,Aug,Ø,Sep,Ø 
DATA Oct,Ø,Nov,Ø,Dec,Ø,Jan,Ø 
DATA XYZ Co,1,Ø 
DATA ACME plc,1,1 
DATA AZX Inc,],2 
DATA UniGlobe,1,5 
DATA x,0,0,y,0,0,z,0,0 

5013 DATA 24.8,23.2,11.7,4.1995,3.2,3.4 
,0,0,0,0,0,0,0 

5014 DATA 25.3,22.1,16.7,12,11,6.02,0,0 
,0,0,0,0,0 

5015 DATA 26.8,22.83,22,16,12.5,10.8,0, 
90,0,0,0,0,0 

5016 DATA 39.6,29.8,29.95,17.2,12.52,4. 
1,8,0,0,0,0,0,0 


5017 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 
5018 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 
5019 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 


by Mitch 
ADVENTURE GAMES ADVENTURE GAMES 


The aim of the Graphic Adventure 
Creator (GAC) is to free your imagination 
from the coils of the programming monster 
and allow you to create your own full- 
Scale adventures - complete with pretty 
pictures. 


The GAC provides a menu of options 
which as well as making selections easier, 
help to remind the user what he should be 
doing next. The two main selections are 
the Graphic Editor and the Text Editor. 


The Graphic Editor is a keyboard- 
driven drawing package with which you 
create your artistic masterpieces. A 
sample program is included with the GAC 
which shows what terrific pictures can be 
achieved with this package. 


The usual Rectangle, Circle, Line, and 
Fill commands are available to speed up 
your drawing, and various shades of colour 
are easily provided. As the graphic side 
to this whole program is its selling 
point, a truth should be quickly pointed 
out. If I sold you Leonardo's paint brush, 
would you be able to draw the Mona Lisa? 
Sadly the answer is 'NO'. 


I soon found that to draw anything 
worthy of inclusion in an adventure would 
take me a very long time indeed. Anything 
better than a rectangle with a red 
triangle on top to represent the "Palace 
of Fairy Nuff", was going to take me more 
time than that taken to write the whole 
adventure. This unhappy situation is 
mainly caused by my own lack of artistic 
sense, but also by the lack of a number of 
commands which are standard in more 
sophisticated art packages. To create 
anything half as good as the examples 
given will require careful forethought 
using a paper grid and a lot of 
painstaking input. 
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Okay, if the paintbrush is only as 
good as the fistful of bananas wielding 
it, what of the text-handling side of the 
package? Happily I think it's pretty good. 
The final game can accept complex sentence 
input (e.g. "Take the box and open it 
carefully") and a ‘Quick Start' file is 
provided which has a host of commonly 
required useful words and presets with 
which you can get your game into a working 
state with a minimum of effort. 


In general the method of creating your 
game is what you would expect. You must 
provide a list of nouns, verbs, room 
descriptions, object names etc from which 
the editor can produce lists with numbers 
allocated to each item (e.g. OBJECT 1 is a 
SWORD, VERB 4 is KILL). As with The Quill 
adventure creator (reviewed in Vol.5 
No.5), the nitty gritty arrives when you 
have to create the logic rules for your 
game to follow. Somehow your game must 
understand what to do when a player types 
"KILL THE DRAGON". 


To solve this problem the GAC requires 
you to give it a list of statements which 
it will use to decide what action to take 
for a set of player commands. These 
statements look like simple Basic commands 
and as in The Quill they include special 


words to do common tasks (e.g. MESS 4 
means write out message number 4). To 
complete this part of the adventure 


creation is always going to be awkward for 


absolute beginners in the art of 
programming, no matter how sweetly it's 
wrapped, but the GAC editor does it as 


painlessly as is possible. 


So what's the best buy? The Quill has 
no built-in graphics (although an add-on 
is promised soon) and it's slightly more 
complex to understand than the GAC. 


The GAC has sacrificed some of the 
Beeb's precious memory for the dubious 
advantage of adding pictures to your game. 
I believe if your aim is create fairly 
Simple and colourful games then the GAC 
cannot be beaten. Coupled with the easier 
Logic format almost anyone can create some 
kind of fun game. Should you wish to 
create more challenging games, The Quill 
has the edge, as in this case the only 
final limit to your game's complexity is 
your own skill. 
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Surac adds to last month's date handling routines with a 
further set of functions and procedures providing flexible 


control of output. 


The second and 
concluding part of the 
date handling set of 
routines deals with 
formatting the dates for 
output. The code for this 
is listed opposite. Lines 
128 to 140 set up arrays 
containing names of days 
etc, and these should be 
included as part of your 
main program. 


The date formatter 
requires a packed date 
(explained in part 1), 
plus a format string, as 
parameters, and returns a 


date as a string 
developed using the 
format string as a 


template. A format string 
is built up out of the 
following elements in any 
order: 


YYYY causes the year to 
be inserted into the 
String in the form 
1985. It always has 
four digits. 


YY causes the year to 
be inserted in the form 
85 or 05. It always has 


two digits and a 
leading zero where 
necessary. It is 


assumed that the user 
knows which century is 
being referred to! 


M inserts the month as 
a number i.e. 12 for 
December or 5 for May. 


MM does as above but in 
the case of January to 
September (1 to 9) it 
inserts a leading space 
as well. 


MMM does as above but 
adds a leading zero if 
required, rather than a 
leading space. 


120 DIM mon$ (11) ,day$ (6) ,mon$ (11) :FORa 
$-0TOl1:READmon$ (a%) ,mon$ (a2) : NEXT: FORa$ 
=ØT06: READday$ (a$) : NEXT 

130 DATA 31,JANUARY 
MARCH ,30,APRIL 
UNE ,31,JULY 
PTEMBER, 31 , OCTOBER 
EMBER 

140 DATA SUNDAY MONDAY 
WEDNESDAY, THURSDAY ,FRIDAY 

145Ø : 

1460 DEFFNstr (u%,sel%) : LOCALuS: @3=@%AND 
&FFFFFF:uS=STRS (u$) : IFLEN (u$) >1=uSELSEIF 
sel%-1THEN="Ø"+uSELSE=" "+uS 

147Ø : 

1480 DEFENcseq (j$,q%) : IFq3>LEN(j$) ="" 

1490 LOCALVS,x$,y$:xS=MIDS$ (j$,q%,1) : REP 
EAT: vS=v$+x$:q3=q%+1 : yS=x$: xS=MIDS (j$,q% 
71) :UNTILXS<>yS:=vS 

1500 : 

1510 DEFFNdOto6 (d$) :LOCAL12:12- (FNdaydi 
£(3244Ø3735,d%) )MOD7: IF1%<Ø=1%+7ELSE=1% 

1520 3 

1530 DEFFNdatesp (d%,f$) :LOCALW9,p%,f18, 
1%:p%=1: REPEAT: f | $=FNcseq (£$,p%) : 13=LEN ( 
£1$) :p%=p%+1%:ONINSTR ("*DMY",LEFTS (£1$,1 
) )GOSUB155@, 1568, 1630, 1 70GELSEGOSUB1 740 

1540 UNTILf1$="":=wS 


,28,FEBRUARY ,31, 
,31,MAY ,30,J 
,31,AUGUST ,3Ø,SE 
,30,NOVEMBER ,31,DEC 


,TUESDAY 
, SATURDAY 


1550 RETURN 
1560 ON1$GOSUB1580,1590,1600,1610,1620E 
LSEGOSUBI 620 


1570 RETURN 

1580 wS=wS+STRS (FNdayip (d) ) : RETURN 
1590 wS=wS+FNstr (FNdayip (d$) ,1) : RETURN 
1600 wS=wS+FNstr (FNdayip (d$) , 0) : RETURN 
1610 wS=wS+LEFTS (day$ (FNAØto6 (d$) ) , 3) :R 
ETURN 

1620 wS=wS+dayS (FNd0to6 (d£) ) : RETURN 

1630 ON12GOSUB1650,1660,1670,1680,1690E 
LSEGOSUBI690 

1640 RETURN 

1650 wS=wS+STRS (FNmonip (d$) +1) : RETURN 

1660 wS=wS+FNstr (FNmonip (d%) +1,1) : RETUR 
N 

1670 wS=wS+FNstr (FNmonip (d$) *1,0) : RETUR 
N 

1680 wS=wS+LEFTS (mon$ (FNmonip (d$) ) ,3) :R 
ETURN 

1690 wS=wS+monS (FNmonip (d£) ) : RETURN 

1708 ON1$GOSUB!720,1720ELSEGOSUB] 730 

1718 RETURN 

1720 wS=wS+FNstr (FNyearip (d$) MOD100 ,0) : 
RETURN 

1730 wS=wS+STRS (FNyearip (d2) ) : RETURN 

1740 w$=wS+f1$: RETURN 

1750 : 
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1760 DEFFNdaydif (d1%,d2%) : IFd13>d2%=FNd 
aydif (d2%,d1%) *-1 

1770 LOCALyl$,y2$,m$,r$ 
$) :y1%=FNyearip(d1%) :r%= 
n$(1)-28 


:y2$-FNyearip (d2 
(y2$-y1$)*365:mo 


XT 

1790 m%=FNmonip (dl$):IFFNlpyr (yl$) ANDm3 
»l1r$-r$-1l 

1800 IFm2»0FORyl$-0TOm$-]:r$-r$-mon$ (y1 
$) : NEXT 

1810 m%=FNmonip (d2$):IFFNlpyr (y2%) ANDm$ 
<2r%=r%-1 

1820 IFm2»0FORy22$-0TOm$-]:r$-r$*mon$(y2 
$) : NEXT 

183Ø =r%+FNdayip (d2%) -FNdayip (d1$) 


MMMM inserts the first three letters of 
the month i.e. December would be Dec and 
January Jan; remember to set up the 
string arrays to  accomodate this 
feature. If capital letters are used in 
the array then of course you will get 
DEC or JAN. 


MMMMM inserts the entire name of the 
month. Caution: if you want the dates to 
come out in neat columns you may need to 
include trailing spaces in the string 
array elements. September is the longest 
name, with nine letters; a suggestion is 
that you make all the string array 
elements nine or ten characters long. 


D to DDDDD does the same thing for the 
days as M to MMMMM does for the months. 
Again if you want neat columns then 
include trailing spaces in the day names 
to make everything at least as long as 
Wednesday (which I always maintain is 
the longest day of the week anyway!). 


Any other character, be it space, ,.:; 
or anything else, will be inserted as it 
is encountered in the format string. 

Some examples: 


FORMAT STRING POSSIBLE RESULT 


DDD MM YY 12 Ø2 86 
DDD.MM. YY Ø6. 2.09 
DDDDD DD (YYYY). WEDNESDAY 5 (2Ø25). 
YY MM DD B6. 319 


To summarise the routines and describe 
their use: 


FNdatesp (date$,format$) is the main 


function and returns a string containing 
the date in printable form according to 
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the contents of format$. 


FNd@to6 (date%) returns a number between Ø 
and 6, representing a day of the week, to 
reference day$(). 


FNdaydif (firstdate$,secondate$) returns an 
integer equal to the number of days 
between the two dates (hark all ye 
biorhythm writers). If the first date is 
earlier then the result is positive. If 
the first date is the greater then 
FNdaydif calls itself recursively just 
once with its own formal parameters 
reversed, then multiplying by minus one. 
Note that using the day strings can be 
slow if years far from 1986 are used, as 
FNdaydif has a lot of work to do. 


PROCdmyout simply acts as a collection 
point for FNyearip, FNmonip and FNdayip 
and PROCfeb to prevent the need to call 
them all separately on various occasions. 


PROCyok performs a check to ensure that 
year boundaries have not been violated, 
and sets the date to 31 December 9999 or 1 
January 1752 if they have, sounding a 
warning as well. The variables d$, m$ and 
y$ are global to PROCdmyout and PROCyok; 
So exercise caution if you want to use 
these particular routines on their own (I 
don't think you will). 


FNdayip(date%) strips the days part of a 
date from a packed date and returns it as 
an integer. 


FNmonip(date%) and FNyearip(date%) do 
likewise for the month and year. The usual 
postfix convention applies to the function 


names, VIÐ" referring to 'packed to 
integer'. 

All the procedures and functions 
referred to must be included (the last 


four were listed with part 1), 
output. 


for date 


The magazine cassette/disc contains a 
demonstration program which includes a 
number of useful combinations of different 
functions and procedures, as well as a 
complete trial of all the formatting 
possibilities. Overall, the date handlers 
provide a means for you to use dates 
easily with your own programs without the 
extra work imposed by writing such 
handlers yourself. 
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Watford ROM/RAM board 


Now that ROM and RAM boards are 
almost 'de rigeur' for all self-respect- 
ing Beeb enthusiasts, Watford Elec- 
tronics have produced an all-si 
all-dancing version for the model B. 
Geoff Bains, fresh from Broadway, 
reports. 


: ROM/RAM Board 

: Watford Electronics, 
250 Lower High Street, 
Watford. 
(0923) 37774 

: £51.75 (32K) 
£79.35 (64K) 
£125.35 (128K) 


It is difficult to believe that at 
this late stage in the day a ROM board can 
be made that has something new to offer 
users of the BBC micro. However, that is 
just what Watford Electronics has done. 
Their ROM/RAM board is an extension ROM 
board for the Beeb that offers the user 
far more than any previous device. 


Product 
Supplier 


Price 


The ROM/RAM board in fact has only 
three ROM sockets; the rest of the board 
is taken up with sideways RAM. The 
philosophy here is to substitute RAM for 
ROM sockets, and in fact the board is 
available in a range of different models 
with differing amounts of sideways RAM 
from 32K up to 128K. All are based around 
the same circuit board, and the cheapest 
may be upgraded to the most feature-filled 
by plugging in a few RAM chips and, 
unfortunately, soldering in a few items. 
Unless performed by Watford itself, this 
will invalidate your guarantee! 


In practice the ROM/RAM board is not 


that simple to fit. First the 6592 
processor must be removed, the board 
fitted into its socket, and the 6502 
fitted on the board. An analogous 


procedure is then performed on two of the 
power leads that plug into the Beeb's 
circuit board. These are disconnected and 
plugged into the ROM/RAM board, and two 
new leads are connected from the ROM/RAM 
board to the vacant connectors. Finally, a 
flying lead is plugged onto a link (S21) 
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this 
is not without its hazards, and should be 


on the main circuit board. Clearly, 


undertaken only by those who feel 


confident about such matters. 


The ROM/RAM board covers the entire 
back right quadrant of the Beeb. Users of 
the Watford 32K shadow RAM board can still 
operate the ROM/RAM board with this. 
However, it will not work properly with an 
Aries B-32 board. 


Once installed, the board gives you 
three extra ROM sockets in positions 12, 
13 and 15. Positions 8 to 1l are now the 
four ROM sockets on the original Beeb 
circuit board, and these can be used as 


normal. Two 8K sockets are provided in 
position 14 for CMOS static RAM chips, 
although an 8K ROM can also be fitted 


here. Alternatively, a PCB track may be 
cut (!) to allow one of the two sockets in 
position 14 to take a 16K ROM. 


There is provision for battery backup 
for the RAM in bank 14. This requires only 
the installation of a rechargeable 
battery. A link (or alternatively a 
switch) may be fitted to  'read protect' 
this bank. This enables you to 'remove' 
this RAM should it contain some software 
under development that has hung the 
machine. 


The sideways RAM in sockets Ø to 7 
forms the main RAM banks. In its cheapest 
configuration the ROM/RAM board has 32K 
(two sideways banks) of RAM fitted. Up to 
eight banks may be fitted, either at the 
time of purchase or later. This is all 
dynamic RAM, like the main RAM in the 
basic Beeb. It cannot be battery backed so 
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it loses its contents when the power is 
off. However, the RAM chips themselves are 
both smaller and cheaper than CMOS static 
RAM. These eight banks of sideways RAM can 
provide the user with a 'silicon disc' 
system or a printer buffer (see below). 


UTILITY SOFTWARE 

A disc is provided with the  ROM/RAM 
board. This contains utilities to load and 
save ROM images in any specified sideways 
bank. The advantage of RAM over ROM for 
sideways software is a debatable one. RAM 
obviously allows 'ROMs' to be changed 
without taking your machine to bits, but 
you do have the inconvenience of loading 
your  sideways ROM software from disc 
before it can be used, since only one RAM 
bank can be battery backed. However, what 
really sets this ROM/RAM board apart from 
other boards is the other software that 
accompanies the device. 


First off, there is a printer buffer 
utility. This is similar to that provided 
with Watford's sideways RAM modules (see 
BEEBUG Vol.5 No.1), and it enables you to 
continue using the machine while printing. 
The sideways ROM buffer software is loaded 
into a sideways RAM bank and takes up only 
about 1.5K. The rest of that bank is used 
as an extended printer buffer. It worked 
well on test and, unlike earlier versions, 
does not automatically clear the buffer 
when a disc read is performed. * commands 
are provided to switch on and off the 
extended buffer and to clear it, either 
with Escape or another * command. 


Even more impressive than the printer 
buffer software is the 'Silicon Filing 
System'. This is provided as a  sideways 
ROM image which can be loaded into one of 
the banks of RAM (preferably bank 14). 


The SFS uses any number of the dynamic 
RAM banks as a RAM disc (or 'silicon 
disc'). This appears to the user just like 
a normal disc drive, except that data and 
programs are actually stored in sideways 
RAM and not on a disc. This means that the 
data is lost when the power is switched 
off, but all read and write operations are 
much faster than with a normal disc drive, 
once the data has been loaded. A 10K 
Wordwise file loaded using the SFS in 
about 1 second - some five times faster 
than loading from disc. 
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Almost all functions of the SFS are 
similar to the normal Acorn DFS, but with 
extensions as for the Watford DFS. There 
are some differences. *DRIVE, and the 
drive specification in other commands, has 
no effect in the SFS - only one RAM 
'drive' is provided. If *ENABLE is omitted 
then commands such as *DESTROY issue a 'Go 
(Y/N)' prompt. The RAM disc has a default 
title of 'Silicon disc'. All SFS workspace 
is in sideways RAM and so PAGE is not 
moved by enabling the SFS. 


Five extra commands are provided too. 
*SILICON initiates the SFS as the current 
filing system (though the manual is slow 
to inform of this). It also checks to see 
which dynamic RAM banks are free for use 
with the SFS. The SFS can also be entered 
with S-Break. *INIT may be used to specify 
certain banks only for the RAM disc. 
*CFSDISK and *CTSDISK are provided for 
copying files between the RAM disc and the 
current filing system. Unfortunately, the 
full use of wildcards is not permitted in 
these commands. 


Finally, *RLOAD is provided for easy 
loading of sideways ROM images to sideways 
RAM. Suitable error messages such as 
'Socket in use' and 'Not RAM' are issued 
when necessary with this command. 


To my mind it would have been better 
to implement the RAM disc as another disc 
'drive' (number 4) rather than as a new 
filing system. However, the SFS is a very 
powerful piece of software. Choosing to 
implement the RAM disc just like the 
normal DFS is a masterful touch. It means 
that using the  SFS requires little 
learning for most users. It is a pity that 
Watford has taken this to the extreme by 
omitting any explanation of the majority 
of the SFS commands. Instead, users are 
referred to the Watford DFS manual - a 
cheap trick. 


However, the ROM/RAM board provides a 
new approach to sideways ROM boards that 
will appeal to users who prefer sideways 
RAM to large numbers of ROM sockets. The 
board itself is well thought out and 
constructed and the software both useful 
and well written. This device is expensive 
but if it provides the facilities which 
you are looking for, then in my view it 
represents good value. 
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The Red Sea Scrolls 

My thanks to BEEBUG and 
to Graham Blackwell for the 
excellent ‘filler’ program 
and the British Isles map 
(see BEEBUG Vol.5 Nos.3 & 
4). However, could you 
suggest why, after running 
the program to get a green 
Britain on a blue sea and 
saving the screen to disc, 
on reloading directly to 
the screen using: 

MO.2:*LO.<filename> 
I get a sea of RED? 

A.Jepson 


This effect results from 
the way in which the Beeb 
handles 'logical' and 
'actual' colours. In any 
mode, the colours are 
referenced by number and 
are linked to a default set 
of colours as described in 
the User Guide. However, 
the colours in use at any 
time can be changed using 
VDUI9, and this is what 
happens to produce a green 
Britain with a blue sea. 
When the screen is saved, 
the colour information is 
in 'number' form only. When 
the screen is re-loaded as 
described, it is the 
default colours that are 
used, in this case sub- 
stituting red for blue. 


If you want to re-load the 
screen with the  'correct' 
colours, then these will 
need to be set as follows: 
MO.2:VDU19,1,4,0,0,0 
*LO.<filename> 
It is worth noting that the 
colours in a screen display 
can be changed after load- 
ing (without corrupting the 
picture) by typing Ctrl-S 
(instead of VDU19) followed 
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by the 5 digits (without 
commas) that usually follow 
a VDUI9 command. 


Rheumy-eyed but Trendy 

As an old (in every 
sense!) BEEBUG member, I 
have every copy of the 
magazine. 


I was  irritated but 
silent when you started 
putting the supplement 
inside the main magazine. I 
am peeved but resigned now 
that you have made it part 
of the magazine. 


However , I will NOT 
remain silent about your 
extraordinary decision to 
put Hints and Tips onto a 
page covered in the word 
'HINTS'. Maybe you all have 
excellent eyesight; maybe 
as you know what is on the 
page you haven't tried to 
read TEs I haven't, I 
don't, I have, and I can't! 


I'm sure it seemed a 
good idea at the time, but 
you don't have to be 
particularly rheumy-eyed to 
find this style of printing 
difficult to read. I look 
forward to future clear, if 
less trendy, magazines. 

Yours, astigmatically, 
Mrs Gill Turner 


Mrs Turner, and other 
readers who feel similarly, 
will be pleased to see that 
we have indeed become less 
'trendy'. We thought that 
this presentation would 
enable the hints to be more 
readily distinguished from 
the Postbag page opposite. 
It didn't work sufficiently 
and Mrs Turner's letter 


confirmed our own mis- 
givings; hence the change. 


Passing On 
With reference to the 
article on  'Passing Arrays 
to Procedures' (see BEEBUG 
Vol.5 No.2), this appears 
to pass arguments (i.e. 
array elements) one ata 
time only. Is there a way 
(1) to pass the whole array 
over, and (2) to pass 
arrays of real numbers, not 
just integers. 
Bob Ames 


the technique 
described in the article, 
did involve passing a 
pointer to an array asa 
parameter to a procedure, 
and using indirection 
operators for any process- 
ing. Particularly when 
dealing with large arrays, 
it? s undesirable to 
literally move or transfer 
an entire array within 
memory because of the time 
taken, and the need for 
double the amount of memory 
Space. Instead, as in the 
example programs, merely a 
pointer is passed to the 
procedure, and this is used 
to access the array where 
it is already located. 


In fact, 


Indirection operators only 
provide directly for byte 
and integer (four byte) 
operations. To implement 
real arrays (five bytes per 
number) would therefore 
require the user to write 
his own routines to do 
this. It would then be 
quite feasible to pass a 
pointer to a real array as 
a parameter and to process 
this as required. 
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Graphics Turn On 


The Graphics ROM from 
Computer Concepts is 
usually enabled by entering 
*FX162 and then pressing 
Break. A simpler method is 
to press Break between the 
two beeps (one long and one 
short) that are produced 
when switching on the Beeb. 
This can be tricky to time 
correctly but automatically 
activates the ROM. 

Gareth Letshon 


ADFS File Names 
Full stops should be 
avoided in filenames used 


with the ADFS. Although a 


filename such as 'VIEW2.1' 
is quite acceptable to the 
standard DFS, in the ADFS 


this would be treated as 


file. -ups in directory 
'VIEW2'. 
Richard Sterry 
*EXEC Nesting 
A spooled file can call 
another (i.e. it can 
contain a *EXEC command) 
but you can never  "'return' 
from the second set of 


instructions to the first. 
The *EXEC should be the 
last command in the file to 
be executed. 

Richard Sterry 


Screen and Window Width 


To calculate the width, 
in characters, of the 
Screen or a text window 
regardless of the display 


mode the following short 
routine can be used: 
VDU13,8 
width=POS+1 
Roger Burg 
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Wordwise Plus Zeros 


When short of memory in 
Wordwise Plus the odd byte 
of RAM can be saved by not 


including any zeros in 
embedded | commands. For 
example: 
<green>TIØ<white> 
can be replaced with 
<green>TI<white>. 
This works with any 
embedded command followed 
by a number. 


Arthur Neasden 
Lives, Lives and More Lives 


The number of lives in 


Aardvark's Frak! can be 
increased to 255 (or any 
other number) by loading 


the game using *LOAD Frak2 
then typing  ?&3Ø5B=255. 
Then start the game with 
CALL &468A. 


Similarly, your chances 
in Micro Power's Jet Pac 
can be boosted with  *LOAD 
JET-PAC, ?&302B-255, CALL 
&5900. 


You can get 255 lives 
and 255 grenades in Bug 
Byte's Commando with *LOAD 
DGAME followed by 
?&254D=255: ?&2553-255 and 
then start the game with 
CALL &6DØØ. 

Peter Weston 


File Data Storage 


In a disc or cassette 
file, integers are stored 
in five bytes and real 


numbers are stored in six 
bytes regardless of their 
contents. So: 


X=1Ø.5:Y%=8:PRINTYC,X, Y 
stores the 8 as a five byte 


NTS. HINT 


integer and the 10.5 as a 
six byte real number. 


X=1Ø.5: PRINT #C,X,8 
will store both numbers as 
Six byte real numbers. 
Failure to realize this can 
lead to the error message 
'Type mismatch'. 


Basic can, however, 
read an integer value and 
assign it to a real 
variable. 


Accurate Wordwise 


Tearing off a sheet of 
paper from a printer 
(especially some Epson 


models) can result in the 
first line of text on the 
next page being printed 
Slightly out of alignment. 
This can be avoided by 
including the following 
code (for Epson compatible 
printers except MX) asa 
'green' embedded command at 
the top of the page or, 
better still, in a heading 
definition: 
0C19,27,106,36 
This performs a line feed 
and then a reverse feed to 
reset the paper position. 
A.E. Wilmshurst 


Readable Programs 


Careful choice of of 
procedure and variable 
names and REM statements 


can produce a program that 
reads almost like normal 
English. This can not only 
be amusing but helpful for 
debugging too. For example: 
1ØØ IF X=TRUE THEN PROC 
EED ELSE PROCLAIM 
200 REMOVE INVADER FROM 
SCREEN 
R.D. Bagnall 
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Can cuddly Cubert climb around the 
cubes cannily avoiding the crushing 
villain of the piece as he goes? Tim 
Thornham sets the scene to his 
colourful arcade game. 


Cubert is a fast, colourful, 3 
dimensional, one player game based on the 
popular arcade game Q*BERT. The idea of 
the game is to move over a 'pyramid', made 
up of cubes, and to change the colour of 
each cube. At the same time you must save 
Cubert from being flattened by the ball 
that bounces randomly down the cubes from 
the top of the pyramid. 


To complete a screen, all of the 
blocks in the pyramid need to be changed 
to the desired colour. Once this has been 
done, a new design of pyramid will appear, 
requiring a different strategy to change 
the colour of the cubes. 


Once all eight pyramids have been 
successfully negotiated, the game restarts 
from the first pyramid, but each block 
needs to be stepped upon twice to change 
it to the required colour. The target 
colour is displayed on the screen 
throughout the game. 


Cubert can lose a life in one of two 
ways, either by falling off of the side of 
the pyramid, or by being flattened by a 
bouncing ball. Cubert is given five lives 
to start the game with, and once these are 
lost, the game will end. 


The quicker each screen is completed, 
the more bonus points are awarded. Every 
5,000 points achieved brings an extra life 
for troubled Cubert in an attempt to reach 
the top of the high score table. Bonus 
points are displayed to the left of the 
pyramid, and count down as time elapses. 


To control Cubert, four direction keys 
are needed. To move uo and left (remember 
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CUBERT 


2 FRAME: 81 


85785 


you are playing in 3D) you need to press 
'A'. Pressing '*' will move Cubert up and 
right, 'Z' moves down and left and '?' 
moves down and right. 


If you wish to run Cubert on any 
system where PAGE is set higher than &EØØ 
(e.g.DFS disc systems), then you will need 
to include the following movedown routine 
with the program. Please make sure that 
the program has been saved first. 


Ø IF PAGE<&E@1 THEN 10 
1 *TAPE 
2 *KEY Ø FOR A$-0 TO (TOP-PAGE) STEP4 
: AS! &EØØ=A% ! PAGE: NEXT | MPAGE=&EØØ |M 
OLD | MRUN |M 
3 *FX138,0,128 
4 END 
Please be careful when typing in the 
character definitions and data from line 
2690 onwards, otherwise the screen display 
may appear garbled. 


1Ø REM Program CUBERT 

20 REM Version B@.1 

30 REM Author Tim Thornham 
40 REM BEEBUG November 1986 
5Ø REM Program subject to copyright 
60 : 
100 ON ERROR GOTO 3220 
110 MODE2 

128 PROCinit:PROCchars 

130 REPEAT 

148 FR£-1:PROChigh: PROCnew 
150 REPEAT 

160 IF E%=1 PROCscreen 
170 VDU5:E$-1 
180 REPEAT 
198 PROCman 
200 PROCball(Ø) 
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210 IF K>@ PROCball(1) 

220 PROCman 

230 IF K>] PROCball(2) 

240 PROCdelay (100) 

258 PROCman 

260 J$-J$ EORI:IF J%=1:PROCbonus 

270 PROCscore 

280 UNTIL noleft=Ø OR E%=Ø 

290 IF E$-0 PROCrestart:ELSE S%=S$+B$: 
PROCscore: PROCtune 

300 UNTIL L$-0 

310 PROCdead 

320 UNTIL FALSE 

330 END 

340 : 

1000 DEFPROCman 

1010 IF noleft=Ø OR E$-0:ENDPROC 

1020 IF INKEY(-66):PROCpman (-72,104) : EN 
DPROC 

1030 IF INKEY(-98) : PROCpman (72, -104) : EN 
DPROC 

1049 IF INKEY (-73) : PROCpman (72,104) : END 
PROC 

1050 IF INKEY (-105) : PROCpman (-72, -104) : 
ENDPROC 

1060 PROCdelay (180) 

1078 ENDPROC 

1080 : 

1090 DEFPROCpman (x%,y%) 

1100 VDU5:SOUND2,2,50,1 

1118 MOVEX%+64, Y$: PRINTCHRS127+B$ (3+ (PO 
INT (X$-8 , YS) >9) +2* (POINT (X%+72,Y%) >9) ) +C 
HRS (POINT (X$,Y$-64) ) +J$ 

1120 X%=X%+x%:Y%=Y%+y% 

1130 W$-POINT (X%,Y%-48) 

1140 IF W%<8:E%=Ø:ENDPROC 

1150 IF W3<D%:5%=5%+1Ø:GCOLØ,W%+1 : MOVEX 
%-36,Y%-52:MOVEX%+28,Y3-84: PLOT85,X%+28, 
Y3-20 : MOVEX3+36 , Y%-84:MOVEX%+28, Y3-2Ø: PL 
OT85,X%+1ØØ, Y%-52:IF W$41-D$:noleft-nole 
ft-1 

1160 MOVEX%,Y%: PRINTMS 

1178 ENDPROC 

1189 : 

1198 DEFPROCball(F%) 

1200 IF noleft=Ø OR E%=Ø:ENDPROC 

1218 SOUND1,1,1,1 

1220 MOVEB3 (F%,Ø) ,B$ (F$,1) :GCOLØ, POINT ( 
B$ (F%,@) ,B$ (F$,1)) : PRINTCHRS$250 

1230 B%(F%,1)=B%(F%,1)-1Ø4 

1240 P%=- (POINT (B%(F3,Ø)-72,B%(F%,1))>8 
) -2* (POINT (B$ (F$,0) *72,B$ (F$,1))»8) 

1250 IF P$-0 PROCrepos 

1260 IF P%=1:B%(F%,Ø)=B%(F%,Ø)-72 

1270 IF P%=2:B%(F%,Ø)=B%(F%,Ø)+72 

1280 R$-0:IF P$-3:R$-RND(2):IF R%=1:B%( 
F$,0)-B$(F$,0)-72:ELSE IF R%=2:B%(F%,Ø)= 
B% (F3,Ø) +72 

1298 MOVEB%(F%,Ø) ,B%(F%,1) :GCOLØ, 0: PRIN 
TCHR$25Ø 


Beebug November 1986 


13ØØ IF POINT (B%(F%,0) +32,B% (F%,1) +8) <9 
:E$-0 

1318 ENDPROC 

1320 : 

1330 DEFPROCrepos 

1340 IF nos%=1:B% (F$,0)-ST$(1):ELSE B%( 
F$,0) -ST$ (RND (nos%)) 

1350 B$(F$,1)-844 

1360 ENDPROC 

1370 : 

1380 DEFPROCrestart 

1390 FORT-QTO!:SOUNDO,-15,T,2:NEXT 

1400 PROCdelay (1000) 

1410 L%=L%-1:VDU4: PRINTTAB (9,2) ; L$: VDU5 
:IF L$-0 ENDPROC 

1420 IF W%>8:MOVEX%+64,Y%:PRINTCHRS127+ 
BS (3+ (POINT (X%-8,Y%) >9) +2* (POINT (X$472,Y 
$) >9) ) +CHRS (POINT (X%,Y%-64) ) +US 

1430 FOR F$-0 TO K:MOVEBS$ (F%, ø) ,B%(F%,1 
) :GCOLO , POINT (B2 (F$,0) ,B$ (F$,1)) : PRINTCH 
R$250: PROCrepos: NEXT 

1440 X%=6Ø8:Y%=256:W%=1Ø 

1450 MOVEX% , Y%: PRINTMS 

1468 ENDPROC 

1470 : 

1480 DEFPROCbonus 

1490 IF B$-0:ENDPROC 

1500 VDU4:B%=B%-1Ø:PRINTTAB (xb, yb) ;"00" 
7 TAB (xb+3-LEN (STRS (B2) ) ,yb) ;B$: VDU5 

1510 ENDPROC 

1520 : 

1530 DEFPROCdead 

1540 VDU4,28,3,19,16,15,12,26 

1550 PROCdbl("GAME OVER",1,3,508) 

1560 PROCdbl("Press <SPACE>",1,3,444) 

1570 REPEAT:UNTIL GET-32 

1580 ENDPROC 

1590 : 

1600 DEFPROCscore 

16198 VDU4: PRINTTAB (6-LEN (STRS (8$) ) , 2) ;S 
$ 

1620 IF S5%>=I1%:1%=I1%+5ØØØ:L3=L3+1: PRINT 
TAB (9,2) ;L% 

1630 VDU5 

1648 ENDPROC 

1650 : 

1660 DEFPROChigh 

1670 PP-9:VDU4:CLS 

1680 FORS-0TO7:PROCdraw(S*144,800) : PROC 
draw(S*144,592) : NEXT 

1690 FORS=Ø TO1:PROCdraw(5*144+72,696) : 
PROCdraw (S*144+792,696) : NEXT 

1700 PROCdb1 ("CUBERT",1,3,784) 

171Ø IF S%>HI%(8) PROCchange:PP-1 

1720 PROCdb1 ("HIGH SCORES",1,3,5ØØ) 
173Ø FORT=1T08 

1740 PRINTTAB(2,T+18);T;" ";STRINGS(10, 
",") ;TAB(4,T+18) ;HS (T) ; TAB(15, T-18) ;HIS( 
T) 

1750 NEXT 
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760 IF PP-1 PROCin 

1770 VDU4: PRINTTAB (Ø, 28) ; SPC(45) ; 
1780 PROCdbl("«SPACE» to play.", CUBERT 

79Ø REPEAT:UNTIL GET=32 81995 =R eRhik Xl 
800 ENDPROC s 5 sa À 


810 : 5 WR Ml uos 


13799) 


820 DEFPROCchange 

1830 FORT=7T0Ø STEP-] 

840 IF S$«HI$ (T) :P=T+1:T=Ø 
1850 NEXT 
1860 IF P-8:GOTO 1880 

870 FORT=7 TO P STEP-1:HI%(T+1) =HI%(T) 
: HS (T+1) =H$ (T) : NEXT 

880 HIZ(P)-S$2:H$ (P) -STRINGS (1Ø,".") 
890 ENDPROC 

909 : 
1910 DEFPROCin 

920 PROCdbl("Please enter name",1,3,99 


) 2300 MOVE68+x%,32+y%:MOVE132+x%,y%: PLOT 
93Ø PRINTTAB (4,P*18) ; 85,684x$,y$*96: PLOT85,132+x%,y%+64 
940 *FX15,0 23190 GCOL0,11 
950 X$-0:Y$-&D:A$-0:!&D00-& 200A0A00: ?& 2320 MOVE14Ø+x%,y%:MOVE14Ø+x%,y%+64: PLO 
DØ4=127:CALL&FFF1 T85,2Ø4+x%,y%+32: PLOT85,x%+2Ø4,y%+96 
960 HS(P) =LEFTS (S&AØØ, 10) 2330 GCOLØ,13 
1970 ENDPROC 2340 MOVE68-4x$ ,y$* 100: MOVE132*x9$,y $468: 
1980 : PLOT85, 132+x%,y%t+1 32:MOVE] 40+x% ,y$468:MO 
990 DEFPROCtune VEx3+14Ø,y%+132:PLOT85,2Ø4+x%,y%+1ØØ 
2000 FORT=1TO9 2350 ENDPROC 
2010 SOUND1,-15,120+T*4,2 2360 : 
2020 SOUND2,-8,80*T*4,2 2370 DEFPROCnew 
2030 NEXT 2380 L$-5:S$-0:LVL$-0:FR$-0:D$-14 
2040 ENDPROC 2390 E%=1:K=Ø:W%=1Ø:1%=5ØØØ 
2050 : 2400 ENDPROC 
2060 DEFPROCdelay (TT$) 2410 : 
2070 FORt=1|TOTT%:NEXT 2420 DEFPROCscreen 
2080 ENDPROC 2430 CLS:FR3=FR%+1 
2090 : 2440 LVL%=(FR%+7)DIV8 , 
2100 DEFPROCcubes 2450 IF (FR%-1)MOD8=Ø RESTORE 
2110 nos$-0 2460 K-(LVL$-1)DIV2:1F LVL%>5 K=2 
2120 GCOL0,6:FORT-1TO!00:PLOT69 , RND(128 2470 D$-(LVL$-1)MOD2*14:IF LVL%>5 D%=15 
Ø) , RND (900) : NEXT 2480 PROCdbl("CUBERT",1,3,1020) 
2130 READT,noleft,xb,yb,xc,yc 2490 VDU4: PRINTTAB (1, 1) ; "SCORE"; TAB (1,2 
2140 FORU-] TO T ) ; "090090" ; TAB (14,1) ; "LVL: 00" ; TAB (2Ø-LEN ( 
2150 READAS STRS$ (LVL2) ) , 1) ; LVL2$; TAB (12,2) ; "FRAME: 00" 
2160 xc$-272*EVAL ("&"+MIDS (A$,1,1)) ; TAB (2Ø-LEN (STRS (FR%) ) ,2) ;FR$; TAB(9,2) ;L 
2170 yc%=1Ø4*EVAL ("&"+MIDS (A$,2,1)) $:PROCscore 
2180 n%=EVAL (MIDS (A$,3)) 2500 MOVE640,970: PRINTMS 
2190 IF yc%=728:FORW=| TO n%:ST% (nos$4W 2510 PROCcubes 
) =xc%+104+144* (W-1) : NEXT: nos%=nos%+n% 2520 X$-608:Y$-256 
2200 FORV=Ø TO n$-1 2530 FOR F%=ØT02: PROCrepos: NEXT 
2210 PROCdraw(xc$*144*V,yc$) 2540 GCOLO,D$:MOVE572,204:MOVE636,172:P 
2220 NEXT:NEXT LOT85,636,236:MOVE644, 1 72: MOVE636 , 236: PL 
2230 ENDPROC 0T85,7Ø8,2Ø4 
2249 : 2550 MOVEX$,Y$:PRINTMS 
2250 DEFPROCdraw(x$,y$) 2560 MOVEB$ (0,0) ,B$ (0,1) :GCOLO, Ø: PRINTC 
2260 FORT=1TO5 HR$25Ø 
2270 VDU19,T+1Ø,EVAL (MIDS (C$ ( (FR%-1) MOD 2570 GCOLØ,3:MOVExb,yb:VDU23Ø,231,232:M 
8),T7T,1)),0,0,0 OVExb , yb-24: DRAWxb-32 , yb-24: DRAWxb-32 ,yb 
2280 NEXT -80: DRAWxb+216,yb-8Ø:DRAWxb+216,yb-24:DR 
2298 GCOL0,12 AWxb*192,yb-24 
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2580 MOVExc, yc: VDU233, 234, 235,236,237:M 
OVExc+74,yc-36:VDU238,9,239:MOVExc+138,y 
C-36:GCOLØ,D%:VDU244 

2590 xb=(xb+24) DIV64:yb=(1Ø56-yb) DIV32 

2600 B$-1000:J2-0 

2610 ENDPROC 

2620 : 

2630 DEFPROCdbI (A$,C1,C2,H) 

2640 VDUS:GCOLØ,C1 

2650 MOVE640-32*LENAS$ ,H: PRINTAS 

2660 GCOL0,C2:MOVE656-32*LENAS ,H-8: PRIN 
TAS:VDUA4 

2670 ENDPROC 

2680 : 

2690 DEFPROCchars 

2700 VDU23,224,0,0,0,0,56,120,240,224 

2718 VDU23,225,212,22,19,17,119,119,0,0 

2720 VDU23,226,0,60,126,86,70,6,14,0 

2730 VDU23,227,60,66,129,169,129,1,1,30 

2740 VDU23,230,0,0,247,148,228,148,247, 
Ø 

2750 VDU23,231,0,0,165,181,189,173,165, 
Ø 

2760 VDU23,232,0,0,47,40,47,33,239,0 

2770 VDU23,233,0,0,244,132,135,132,244, 
Ø 

2780 VDU23,234,0,0,189,165,189,165,165, 
Ø 

2798 VDU23,235,0,0,47,168,235,105,47,0 

2800 VDU23,236,0,0,120,64,112,64,120,0 

2810 VDU23,237,0,0,239,73,73,73,79,0 

2820 VDU23,238,8,12,126,127,126,12,8,0 

2830 VDU23,239,16,48,126,254,126,48,16, 
Ø 

2840 VDU23,240,240,240,240,240,240,224, 
192,128 

2850 VDU23,241,15,15,15,15,15,7,3;,1 

2860 VDU23,242,0,0,0,0,0,24,60,126 

2870 VDU23,243,255,255,255,255,255,255, 
90,0 

2880 VDU23,244,255,255,255,255,255,255, 
255,255 

2898 VDU23,250,60,118,251,253,255,255,1 
26,60 

2900 CS-CHRS$184CHRSO 

2910 H$=C$+CHRS|1+CHRS24Ø 

2920 IS-CS4CHR$124CHR$241 

2930 J$=CHR$242+CHR$8+CHRS | Ø+CHRS243 


POINTS ARISING POINTS ARISING POINTS ARISING POINTS 


BEEBUG FILER GRAPHICS (BEEBUG Vol.5 No.2) 
As this Filer option uses mode Ø, 


mode 3) carried over from previous Filer programs gives 


this change three lines as follows: 
1360 PRINTTAB (0,27) STRINGS(80," ") 
20420 VDU28,0,26,79,3:w-1:ENDPROC 
20440 DEF PROCwindow2:VDU28,Ø,31,79,28 


2940 BS (Ø) -HS4CHRS$8-IS4CHR$84CS 

2950 B$(1)-IS4CHRS84CS 

2960 B$ (2) -HS4CHR$84CS 

2970 B$(3)-CS$ 

2980 M$=CS+CHR$3+CHR$226+CHRS8+CS+CHRSØ 
+CHR$227+CHR$8+CS+CHRS ] KCHR$2244CHR$84CH 
RS10+CHRS225 

2990 ENDPROC 

3000 : 

3010 DEFPROCinit 

3020 DIM B$(3) ,B$ (2,1) ,ST2 (7) ,C$ (7) ,HI$ 
(8) ,HS (8) 

3030 ENVELOPE1,0,0,0,0,0,0,0,126,-8,-7, 
-7,126,30 

3040 ENVELOPE2,2,0,0,0,0,0,0,127,-10,-5 
,-2,126,0 

3050 RESTORE3190 

3060 HI$(9)-1000000 

3070 FORT-0TO7:HI$ (T+1)=15ØØ+5ØØ* (7-T) : 
H$ (T+1) ="Beebug" : READCS (T) : NEXT 

3080 VDU23;8202;0;0;0; 

3090 ENDPROC 

3100 : 

3110 DATA8,35,132,704,896,704,008,117,2 
26,335,444,553,662,771 

3120 DATA12,25,132,704,896,704,206,117, 
222,A22,331,B31,441,A41,551,951,662,771 
3130 DATA12,23,132,800,896,800,602,513, 
222,A22,132,B32,242,142,551,951,662,573 
3140 DATA8,23,132,480,896,480,404,513,6 
22,731,642,553,464,375 

3150 DATA13,39,64,320,960,312,206,315,4 
24,335,241,642,C41,153,953,063,A63,172,B 
72 

3160 DATA12,35,552,576,480,420,404,315, 
222,A22,132,B32,042,C42,152,B52,266,375 
3170 DATA16,30,64,512,960,512,404,315,2 
21,622,C21,332,932,441,A41,355,261,662,C 
Gle L7 Dr 

318Ø DATA13,33,64,512,960,512,201,602,C 
91,315,424,332,932,441,A41,352,952,266,3 
75 

3190 DATA46523,53247,65432,23154 

3200 DATA73562,12543,73124,72153 

3210 : 

3220 MODE7:REPORT:PRINT" at line ";ERL 
3230 *FX15,Ø 

3240 END 


The magazine cassette/disc version requires no modifications. 
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Editorial Address 
BEEBUG 
Dolphin Place 
Holywell Hill 
St. Albans 
Herts. AL1 1EX 


CONTRIBUTING TO BEEBUG 
PROGRAMS AND ARTICLES 
We are always seeking good quality 
articles and programs for publica- 
tion in BEEBUG. All contributions 
used are paid for at up to £40 per 
page, but please give us warning of 
anything substantial that you 
intend to write. A leaflet, 'Notes 
of Guidance for Contributors", is 
available on receipt of an A8 (or 

larger) SAE. 

In the case of material longer than 
a page, we would prefer this to be 
submitted on cassette or disc in 
machine readable form using 
"Wordwise", "View", or other 
means, but please ensure an 
adequate written description of 
your contribution is also included. 
If you use cassette, please include a 
backup copy at 300 baud. 


HINTS 


There are prizes of £5 and £10 for 
the best hints each month, plus one 
of £15 for a hint or tip deemed to 
be exceptionally good. 


Please send all editorial material to 
the editorial address above. If you 
require a reply it is essential to 
quote your membership number 
and enclose an SAE. 


MEMBERSHIP RATES 


Send all applications for membership, membership renewals, member- 
ship queries and orders for back issues to the membership address. 
All membership fees, including overseas, should be pounds 
sterling drawn (for cheques) on a UK bank. 


MEMBERSHIP SUBSCRIPTION RATES 


£ 690 6 months (8 issues) UK ONLY 
£12.90 - 1 year (10 issues) UK, Eire, BFPO 


£19.00 - Rest of Europe £22.00 Middle East 
£24.00 Americas & Africa, £26.00 Elsewhere 
BACK ISSUES . 
(Members only) 


Volume sets 
(10 issues) 


Single 
issues 


Europe 
Elsewhere 


Alloverseas items are sent airmail (please send a sterling cheque). We 
will accept official UK orders but please note that there will be a £1 
handling charge for orders under £10 that requires an invoice. Note that 
there is no VAT on magazines. 


Back issues are for members only, so it is ESSENTIAL to quote your 
membership number with your order. Please note that the BEEBUG 
Reference Card and BEEBUG supplements are not supplied with back 
issues. 


Membership, Back Issues & 
Software Address 


BEEBUG 
Dolphin Place 
Holywell Hill 

St. Albans 
Herts. AL1 1EX 


Hotline for queries and software orders 


St. Albans (0721) 40303 
Manned Mon-Fri 9am-4.30pm 


24hr Answerphone Service for Access and 
Barclaycard orders, and subscriptions 
St. Albans (0727) 40303 


If you require members discount on software it is essential to quote 
your membership number and claim the discount when ordering. 
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NOVEMBER 1986 
CASSETTE/DISC CONTENTS 


Business Graphics 


MERGE, PART-MERGE & PART SAVE — a very convenient utility for 

program development. 

STORAGE OSCILLOSCOPE — complete program (and sample data 

sets) to capture and display analogue data. : 

THE MASTER SERIES Page Designer 
EXECUTIVE APPROACH — an example of the power and convenience 

of EXEC files. 

FONT MANAGER — two programs to allow character sets to be saved 

and loaded on the Master. 


BUSINESS GRAPHICS — the first part of this program, providing power 
and sophistication in the display of business data. 

BEEBUG PAGE DESIGNER — all the programs to design and print pages 
of mixed graphics and text. 

BEEBUG WORKSHOP — all the routines plus a complete 
demonstration of data handlers. 

FIRST COURSE — examples of character formation and processing. 
MULTI-COLUMN WORDWISE PLUS — allows you to print text in 
multiple columns on the page. 

CUBERT — it’s colourful, it's fast and it's addictive. It's Cubert, a full 
blooded arcade game. 

BEEBUGSOFT FORUM — all the routines listed this month. 


EXTRA FEATURES THIS MONTH 
MAGSCAN — data for this issue of BEEBUG (Vol.5 No.6). 


Storage Oscilloscope 


All this for £3.00 (cass) £4.75 (disc) +50p p&p. 
Back issues (disc since Vol. 3 No. 1, cass since Vol. 1 No. 10) available at 
the same prices. 


Subscription rates DISC CASS DISC CASS 
UK UK O'seas O'seas 

6 months (5 issues) £25.50 £17 £30 £20 

12 months (10 issues) £50 £33 £56 £39 


Prices are inclusive of VAT and postage as applicable. Sterling only please. 


Cassette subscriptions can be commuted to disc subscription on receipt of 
£1.70 per issue of the subscription left to run. 


All subscription and individual orders to 
BEEBUG, Dolphin Place, Holywell Hill, St. Albans, AL1 1EX. 
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